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Alejandro JULVEZ Y Mareos ORTIZ 



DE TODOS ES SABIDO EL AUGE 
QUE LA INFORMATICA ESTA TE- 
NIENDO EN NUESTRO PAIS, Y 
POR ENDE LA APARICION DE DI- 
VERSOS CENTROS DE ENSEÑAN- 
ZA EN LOS CUALES SE IMPARTEN 
TEMAS RELACIONADOS CON 
ESTA CIENCIA. UNO DE ELLOS 
ES LA ESCUELA UNIVERSITARIA 
DE INFORMATICA PERTENE- 
CIENTE A LA UNIVERSIDAD PO- 
LITECNICA DE MADRID, Y ES SU 
JEFE DE ESTUDIOS, JOSE GA- 
BRIEL ZATO, QUIEN NOS HABLA 
DEL TEMA. 



Escuela de 



INFORMATIC 



«Como su nombre indica, la 
E.U.I. os una carrera técni- 
ca, de las llamadas de ciclo 
corto. Hay que hacer notar 
que diplomas en Informáti- 
ca hay muchos, como son 
los que dan las academias, 
instituciones públicas o pri- 
vadas y otros, pero aquí se 
da el título de diplomado de 
informática por la Escuela 
Universitaria de Informáti- 
ca de la Universidad Poli- 
técnica de Madrid, que ya 
marca unas diferencias, y 
además, no se da en esta 
escuela sólo programación, 
sino que también se impar- 
te algo de análisis, por lo 

3ue yo la llamaría escuela 
e ingeneriería técnica de 
Software o ingeniería técni- 
ca de sistemas, que sería 
más adecuado viendo las 
asignaturas que se impar- 



ten. Creo que se conforma 
una carrera muy adecuada 
a las necesidades de la so- 
ciedad a un cierto nivel, un 
nivel que yo llamaría uni- 
versitario.» 

Hay que decir que en la 
E.U.I. se imparten tres len- 
guajes: Pascal, Fortram y 
Cobol. También se da una 
amplia formación matemá- 
tica, física y electrónica, y 
asignaturas tales como Tra- 
ductores e Intérpretes, Es- 
tructura de Ordenadores, 
Bases de Datos y Sistemas 
Operativos, entre otras. 

Viendo el programa de 
estudios de la escuela ob- 
servamos aue la especiali- 
zación, o elección de espe- 
cialidad, no se produce has- 
ta el último curso (3.°) y 
preguntamos al señor Zato 
sobre el tema: 



A 
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«Estoy completamente de 
acuerdo en que la especia- 
lización llega demasiado 
tarde, además de aue ten- 
dría que haber muchas más 
ramas entre las cuales po- 
der escoger. Actualmente 
sólo hay dos especialida- 
des: Sistemas Lógicos y Sis- 
temas Físicos. 

Este año hemos tenido 
una primera experiencia 
con la introducción de algu- 
nos elementos de Inteligen- 
cia Artificial (lenguajes LISP 
y PROLOG) y algo de Robó- 
tica, pero todo ello a nivel 
superficial, no como espe- 
cialidad. 

Yo creo aue la elección de 
especialidad debería co- 
menzar en segundo. Se po- 
dría diseñar una carrera 
corta en la que habría un 
primer curso básico en el 
que se deberían impartir 
conocimientos tales como 
Física, Electrónica, Matemá- 
ticas, Lógica de los Sistemas 
Digitales, etc.. Luego, un 
segundo curso en el aue se 
podrían ya ramifica r las es- 
pecialidades. 

Podrían ser, especialidad 
de Gestión, desarrollar más 
la especialidad de Sistemas 
Físicos que tenemos ahora, 
que está poco desarrollada 
debido a que hay pocas em- 
presas que se dedican a 
Mantenimiento; Inteligen- 
cia Artificial sería otra espe- 
cialidad, se podría dar más 
de Algoritmos, Sistemas 
Operativos, Planificación y 
explotación de sistemas in- 
formáticos y otras asigna- 
turas que se imparten aho- 



técnicos en una 
ingeniería que 

n< ? es tá 
reconocida en 
Espa ña, p ero si 
en EE.UU~rní ~ 



»»fn esta 

escuela 
formamos 
in genieros 



Pero hay un problema de 
tipo económico, ya que ha- 
bría que dotar a la escuela 
de laboratorios, etc., y 
además de una enseñanza 
teórica, habría que dar una 
amplia enseñanza experi- 
mental. 



ra; en fin, cabria dar un ma- 
yor empuje a muchas de las 
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— Sr. Zato, ¿qué ofrece 
esto escuela que no ofrez- 
can las diversas academias 
que imparten cursos de in- 
formática? 

—Primeramente, la ma- 
yor parte de las academias 
se limitan a la enseñanza de 
uno o dos lenguajes, gene- 
ralmente BASIC y COBOL 
Esto puede servir como una 
primera información en el 
arte de programación, pero 
la informática no es sólo 
programar. Aquí, en esta 
escuela, se pretende formar 
ingenieros técnicos en una 
ingeniería que no está reco- 
nocida en España, pero sien 
EE.UU. que es lo que se lla- 
ma, como he dicho antes, 
ingeniería de Software. 
Nuestros diplomados salen 
capacitados para resolver 
problemas concretos que 
tengan los usuarios, cosa 
que no ocurre con los que 
sólo saben programar que 
sólo resolverán problemas 
que ya estén más o menos 
resueltos previamente, pe- 
ro no pueden modificar pa- 
quetes de software, ni tam- 
poco pueden poner en prác- 
tica aplicaciones, para lo 
cual se necesitan más cono- 
cimientos de informática co- 
mo los que se dan en esta 
escuela. 

-Ya que estamos con el te- 
ma de los programadores, 
¿qué diferencia hay entre un 
programador y un analista 
de sistemas? 

—fu principio, un progra- 
mador es una persona que 
sabe programar, es decir, 
programa un número n de 
programas, pero el analis- 
ta de sistemas es una perso- 
na que es capaz de diseñar, 
de resolver problemas 
prácticos, problemas que 
no están previstos, que, en 
su caso, podría realizar un 
intérprete o que podría ma- 
nipular un determinado ti- 
po de paquetes de softwa- 
re para aplicarlos a una de- 
terminada situación concre- 



ta. 0 sea, el analista es lo 
que hoy en día es un inge- 
niero y el programador es 
una persona que conoce 
uno o varios lenguajes, pe- 
ro no más. 

— ¿Cree usted que la for- 
mación informática que re- 
ciben los alumnos de otros 
carreras que no son de In- 
formática, tales como Mate- 
máticas, Física, etc., puede 
en algún modo, suponer 
una competencia con res- 
pecto a la formación que 
imparte la escuela? 

—A mime parece que hay 
un trabajo específico que es 
el trabajo del informático y 
que luego en las distintas 
carreras se deben ir intro- 
duciendo asignaturas de in- 
formática, pero no sólo en 
las carreras científicas y 
técnicas, sino también en 
las carreras de humanida- 
des, porque además de ser 
la in formática una discipli- 
na nueva, es también una 
manera de organizar la in- 
formación. A mime parece 
mal que se deje la informá- 
tica sólo para los informáti- 
cos porque merma las posi- 
bilidades de análisis de una 
persona que se dedique a 
otra ciencia. No tiene que 
ser un especialista en infor- 
mática, pero sí le puede de- 
cir a un especialista qué cla- 
se de aplicación necesita y 
para eso requiere unos co- 
nocimientos mínimos. 

De manera que yo creo 
que están, primero, los es- 
pecialistas en algo, como 
los Sociólogos, que tienen 
un problema concreto y que 
saben hasta qué punto la in- 
formática puede resolver 
ese problema, y luego el es- 
pecialista propiamente di- 
cho que es el que resuelve el 
problema, que tiene que ser 
un informático, y ese infor- 
mático debe ser capaz de 
hacer un diseño más o me- 
nos completo. 

—¿Qué diferencia existe 
entre un diplomado en in- 



formática (el que ha estu- 
diado en la Escuela Univer- 
sitaria de Informática) y un 
licenciado en informática (el 
que ha estudiado en la Fa- 
cultad de Informática)? 

— Yo creo que los licencia- 
dos tienen unos conocimien- 
tos más profundos en algu- 
nos temas que en la Escue- 
la se tocan de un modo su- 
perficial, pero hay algunos 
conocimientos que no son 
estrictamente necesarios a 
un nivel profundo para 
crear un buen 
ingeniero de Software. 

Como ejemplo, se puede 
poner a las Matemáticas, 
ya que para ser un ingenie- 
ro no hay que tener los co- 
nocimientos de un 
especialista. 

El punto de equilibrio se- 
ria tener la formación ade- 
cuada básica y luego una 
serie de conocimientos que 
formarían esa ingeniería de 
Software que está distribui- 
da a lo largo de cinco años, 
ahora seis, en la Facultad, y 
a lo largo de tres en la Es- 
cuela. Lo que se aprenda de 
más sobre un tema, como 
por ejemplo Sistemas Ope- 
rativos, en la Facultad será 
la diferencia esencial, creo, 
entre una licenciatura y un 
diploma. 



UNA ESCUELA 
SIN PARO 



—¿Qué grado de ocupa- 
ción laboral tienen los diplo- 
mas de esta escuela? 

—Esta es una escuela que 
no tiene paro, es más, aquí 
los alumnos rechazan ofer- 
tas de trabajo que en otros 
sitios serían aceptadas, la 
mayoría de las veces por- 
que no se dan garantías de 
continuidad en el trabajo 
después de pasar un cierto 
tiempo en el mismo. 

Estas ofertas las rechazan 
no sólo los diplomados sino 
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los alumnos, va que hay po- 
cos diplomados. Al ser la es- 
cuela muy jo ven (se creó en 
1978) en este momento el 
número de proyectos fin de 
carrera leídos, es decir, el 
número total de diploma- 
dos, es inferior a cien, pero 
sin embargo, el número de 
personas que han acabado 
la carrera son varios cien- 
tos. 

Aquí el mercado de traba- 
jo está esperando a la gen- 
te que sale y muchas veces 
los coa en antes de que sal- 
gan, de hecho, casi la mitad 
de los estudiantes de terce- 
ro trabajan. 

—¿Qué opinión le mere- 
ce la programación de jue- 
gos? 

— Yo creo que esta aplica- 
ción de la informática al 
juego va a desempeñar un 
papel cada vez más impor- 
tante. El interés del mi- 
croordenador reside entre 
otras cosas en sus posibili- 
dades creativas. En este 
sentido, el micro ofrece la 
posibilidad de interacción 
con el usuario en contrapo- 
sición con la televisión o el 
video que sólo permiten 
una actividad pasiva y re- 
ceptiva. 

Este es un campo con mu- 
cho futuro y enlaza, ade- 
más, con el tema del entre- 
tenimiento y del aprender 
jugando. 

Por otro lado habría que 
introducir el lenguaje má- 
quina en la escuela, a nivel 
de EGB y BUP. Aquí impar- 
timos una asignatura espe- 
cifica llamada O.E.O. (Or- 
ganización Estructural de 
Ordenadores) que introdu- 
ce en los lenguajes llama- 
dos de bajo nivel, y poder 
con ellos organizar las apli- 
caciones que se deseen. 

—¿Cuál es su opinión 
acerca de la introducción de 
la informática en el ambien- 
te escolar? 

—En algunos colegios de 
EGB se ha introducido algo 
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de BASIC, algunas técnicas 
de entretenimiento y poco 
más. No creo que exista un 
planteamiento serio de es- 
te tema, ni creo tampoco 
que se haya producido una 
introduccián generalizada 
de la informática en las es- 
cuelas. Más bien creo que 
este fenómeno no pasa de 
ser una moda. 

A mí, personalmente, no 
me cabe la menor duda de 
que los medios informáticos 
aplicados a la enseñanza 
van a ser de gran ayuda, 
tanto para los profesores 
como para los alumnos. Pe- 
ro el tema tendrá que ser 
estudiado con detenimiento 
y su introducción deberá de 
ser de forma progresiva y 
planificada. 

—¿A qué cree usted que 
se debe lo diversidad de 
lenguajes y la enorme varie- 
dad de equipos que se en- 
cuentran en el mercado? 

—Esta enorme variedad 
de equipos, y de una mane- 
ra más general, la invasión 
de nuevas tecnologías a la 
que estamos asistiendo es 
fruto de la batalla feroz que 
algunas potencias indus- 
trializadas están librando 
por hacerse con el control 
del mercado, y ello, por una 
razón muy sencilla: el tema 
del valor añadido. 

En efecto, las nuevas tec- 
nologías brindan la posibi- 
lidad de fabricar, con muy 
pocos costes, productos 
muy caros, esto es, con un 
alto valor añadido. 

Con este tipo de tecnolo- 
gías, los costes reales de 
producción son mucho más 
bajos que los de los siste- 
mas productivos tradiciona- 
les y se provee que bajarán 
aún mas. 

A la cabeza de la carrera 
está Japón, que goza de 
cierta ventaja sobre EE.UU., 
mientras Europa intenta 
abrirse camino, aunque es- 
tá muy distanciada de los 
dos primeros. 



Todo esto hace presagiar 
una división entre países ri- 
cos y países pobres muchísi- 
mo más pro funda que la ac- 
tual. 

—¿En qué nivel de infor- 
matización se encuentra Es- 
paña con respecto a Euro- 
pa? ¿cree usted que la en- 
trada de nuestro país en la 
CEE tendrá una repercusión 
en este campo? 

— Nos encontramos en un 
nivel muy inferior al resto 
de Europa. Mientras los paí- 
ses desarrollados dedican 
entre un 2 y un 3% de su PIB 
(Producto Interior Bruto) a 
la investigación, en la que 
están incluidas las nuevas 
tecnologías, España ha pa- 
sado en los últimos cuatro 
años, y según cifras del INI, 
del 0,47% al 0,58% del PIB. 
Y para colmo, dos leyes que 
podrían haber sido otros 
tantos instrumentos efica- 
ces para corregir las enor- 
mes deficiencias de la inves- 
tigación española, esto es, 
la Ley de la Ciencia y la Ley 
de Reforma Universitaria, 
no pasarán de ser declara- 
ciones de buenas intencio- 
nes, ya que la segunda tie- 
ne unos presupuestos pre- 
vistos insuficientes y la pri- 
mera no incluye compromi- 
so presupuestario alguno. 

La falta de apoyo estatal 
a la investigación implica 
que en nuestro país ni se di- 
señan ni se comparten pa- 
tentes sino que tal y como 
se venía haciendo desde los 
años del desarrollo indus- 
trial, España continúa im- 
portando tecnología ex- 
tranjera. 
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Marita CHACÓN 



Tiene como objeto el poder listar, analizar 

y alterar aquellos programas en BASIC 
que se resisten a ser «escudriñados», bien 
por no poderse parar con «break», no ser 
posible el cargarlos con «MERGE» o tener 
ocultas las instrucciones como en el caso 
de estar escritas con tinta del mismo color 
del papel. 



«MICROMIRON», que también per- 
mite listar las variables que acompa- 
ñan al programa BASIC, puede ser 
salvado en cassette con o sin autoeje- 
cución después de ser modificado ade- 
cuadamente el programa en cuestión. 
Por otro lado, no puede manejar pro- 
gramas con cabecera falsa o sin ella, 
ni bloques de bytes o conjuntos de va- 
riables. 

«MICROMIRON» es un programa 
totalmente realizado en código máqui- 
na de aproximadamente 3 Kb de lon- 
gitud. Al cargarlo desde el cassette 
aparecen tres bloques: 

BLOQUE l.-Es un programa BA- 
SIC que se ocupa de cargar los otros 
dos bloques y de poner en marcha el 
programa en código máquina. 

BLOQUE 2. -Es Ta pantalla de pre- 
sentación, cuyo tercio superior se uti- 
liza posteriormente como encabeza- 
miento del menú del programa. 

BLOQUE 3.— Está formado por el 
programa en código máquina, el cual 
se sitúa desde la dirección 37500, ocu- 
pando 2864 octetos. 



FUNCIONAMIENTO 



El programa se pone en marcha por 
primero vez entrando en la dirección 
37504 y en primer lugar guarda el ter- 
cio superior de la pantalla desde la di- 
rección 35000, ocupando 2304 octe- 
tos, que se utiliza como encabeza- 
miento del «MENU», al que se pasa 
posteriormente. Las sucesivas reentra- 
das en «MICROMIRON» se deben ha- 
cer por la dirección 37500, con lo cual 
se paso directamente al «MENU». 

En el «MENU» se ofrecen los si- 
guientes seis opciones: 

1. -LOAD PROGRAMA 

2. — LISTAR PROGRAMA 

3. -SAVE PROGRAMA 




4. — LISTAR VARIABLES 

5. -EDITAR MEMORIA 

6. -RETORNO AL BASIC 



l.-LOAD PROGRAMA. Sale el 
mensaje «PONER CASSETTE EN MAR- 
CHA» y se queda en espera de que 
aparezca una cabecera para su lectu- 
ra. Con posterioridad a la carga de 
una cabecera, si es de un programa, 
aparece en la pantalla el nombre del 
mismo, su longitud, lo longitud total 
del programo más variables y, si está 



grabado con autoejecución, el núme- 
ro de línea de comienzo, pasándose 
posteriormente a la carga del progra- 
ma comenzando en la dirección con- 
tenida en 40358 y 40359 que normal- 
mente es 40366, pero puede cambiar- 
se alterando el contenido de las direc- 
ciones anteriormente mencionadas. 

Terminada correctamente la carga 
de un programa, se almacena un 1 en 
la dirección 40349, lo cual sirve como 
indicador, sin cuyo requisito no se pue- 
de tener acceso a las opciones de sal- 
var, listar programa o listar variables. 
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La cabecera del programa que ini- 
cialmente se guardó en un «buffer» 
transitorio, queda almacenada defini- 
tivamente en la zona del «print buffer» 
para su posterior utilización. 

Por último, aoarece el mensaje 
«PULSAR TECLA», lo cual permite el 
retorno al «MENU». 

Al cargar un programa se borra el 
que se hubiese cargado anteriormen- 
te. 

Si la cabecera leída no es de un pro- 
grama BASIC, aparece en pantalla el 
nombre y tipo de información de que 



se trate y se queda a la espera de otra 
nueva cabecera. 

2.— LISTAR PROGRAMA. Si hay al- 
macenado un programa BASIC, (di- 
rección 40349 a 1), se solicita el nú- 
mero de línea desde el que se inicia el 
listado, a lo que se puede responder 
con cualquier número de cinco cifras 
o menos. Si sólo se pulsa «ENTER» se 
lista desde la primera línea. 

La rutina de listado ignoro los «oc- 
tetos de color» y no considera termi- 
nada su tarea al encontrarse un carác- 
ter de código 13 seguido de un 128, 



si no se ha agotado la longitud dada 
pe i cabecera del programa carga- 
do ael cassette últimamente. Tampo- 
co importa que los números de líneas 
estén desordenados o que tengan nu- 
meraciones superiores a 9999. Real- 
mente podría listarse cualquier cosa 
sin ningún problema, aunque no se 
parezca en nada a un programo BA- 
SIC. 

Para comenzar el listado se parte de 
la dirección contenida en 40358 y 
40359 (normalmente 40366). 

3.-SAVE PROGRAMA. Si anterior- 
mente se ha cargado correctamente 
un programo BASIC, se pregunta si la 
grabación se hace con autoejecución, 
a lo que se puede contestar S ó N. 

Posteriormente aparece el mensaje 
«PONER CASSETTE Y PULSAR TE- 



«MICROMIRON» es un 
programa realizado to 
talmente en Código Má 
quina de 3Kb de longi 
tud. 



CLA», tras lo cual se inicia la graba- 
ción. Pora que ésta se efectúe con 
autoejecución es necesario que el pro- 
grama ya la tenga al cargarlo. 

4.— LISTAR VARIABLES. Además de 
cumplirse las condiciones de las opcio- 
nes anteriores, lógicamente deben 
existir variables acompañando al pro- 
grama BASIC que se cargó. 

En el listado que se obtiene en pan- 
talla, de las variables numéricas sim- 
ples sólo aparece el nombre, de las 
matrices numéricas se dan también las 
dimensiones y de las cadenas y matri- 
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ees de caracteres se listan además los 
códigos de los caracteres que contie- 
nen en hexadecimal. Las variables 
aparecen relacionadas en el mismo or- 
den en que están en la memoria. 

5.— EDITAR MEMORIA. Para entrar 
en esta opción no debe de cumplirse 
ninguna condición especial. 

En primer lugar se solicita la direc- 
ción de partida en decimal, a lo que 
puede contestarse con cualquier nú- 
mero de cinco cifras o menos. Si la di- 
rección dada es mayor de 65535, se 
considera la diferencia con esa canti- 
dad menos uno, y si no se da ninguna 
cifra y sólo se pulsa «ENTER» se toma 
cero como dirección de partida. 

Posteriormente aparece el listado en 
cinco columnas, que de izquierda a 
derecha dan la dirección en decimal 
y en hexadecimal, el contenido de la 
posición en decimal y hexadecimal y 
por último, el carácter correspondien- 
te para códigos mayores de 32. 

En la pantalla hay 19 líneas para 
otras tantas posiciones de memoria y 
el cursor colocado en la primera de 
ellas. 

?.— Aparece la pantalla de informa 
ción y pulsando cualquier tecla se re- 
torna al listado. 

C— Cuando el cursor está en la pri- 
mera linea, continúa el listado desde 
la dirección siguiente a la última que 
aparece en pantalla. En caso contra- 
rio el listado continúa desde la direc- 
ción actual del cursor. 

A.— Lista las 19 posiciones anterio- 
res a la del cursor. 

Tanto en esta opción como en la an- 
terior, el cursor pasa a la posición co- 
rrespondiente a la primera línea. 

R. -Retorno al «MENU». 

D. — Para cambiar la dirección del 
listado según se ha descrito anterior- 
mente. 

MOVER CURSOR. -Pulsando las te- 
clas correspondientes se puede subir 
o bajar el cursor a cualquiera de las 
posiciones de memoria que aparezcan 
en la pantalla. 

E. — Permite alterar el contenido de 
la posición actual del cursor, para lo 
cual se pregunta si el nuevo valor del 
octeto en cuestión se dará en decimal 
o en hexadecimal, a lo que se debe 
contestar D ó H, pero de pulsar otra 
tecla se considera anulada esta op- 
ción. 

Posteriormente se solicita el valor del 




octeto, que si es en decimal puede no 
tener ninguna cifra, pulsando sola- 
mente «ENTER», en cuyo caso se con- 
sidera que el valor es cero, y hasta un 
máximo de cinco cifras, pero si el va- 
lor dado es superior o 255, se toma 
el del octeto menos significativo de los 
que fuesen necesarios para contener 
la cantidad dada. 



Si el valor se da en hexadecimal, es 
necesario marcar dos cifras, no admi- 
tiéndose más ni menos. 

Por último, se lista desde la posición 
actual del cursor. 

6.-RETORNO AL BASIC. Se aban- 
dona «MICROMIRON». Para retornar 
se debe entrar por la dirección 37500 . 
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16 HACKER 



MICROMIRON 



3 REM 



MICROMIRON 
PRPER 7: 



INK 



5 BORDER 

LEPR 34.999 

8 LORD ""CODE 37500,2864. 

9 INK 0 

10 RRNDOMIZE USR 37504 : REM PR 
IMERR ENTRROP EN EL PROGRRMP 

11 STOP 

12 RRNDOMIZE USR 37500 REM RE 
ENTRRDR EN EL PROGRRMR 

1 18160000ED5BR49D2100 728 

2 40010008EDB021005S01 608 

3 0001EDB02100003922R0 698 
4. 9DCD6BOD3E02CD01163E 836 

5 08326R5C21B09CCDEB99 1214 

6 2RR49D11004001000SED 690 

7 B0110058010001EDB0RF 871 

8 CD011621569DCDEB99FD 1350 

9 36CE00FD7ECEB728FRF5 1563 

10 RFCD6E0DF 1FE3138E2FE 1583 

11 3730DEF5CD6B0DF1FE31 1439 

12 2008CD5799CDD39618R7 1242 

13 FE322008CDR198CDD396 1428 

14 189BFE332008CD109CCD 1106 

15 D396188FFE3620052RR0 1075 

16 9DF9C9FE342009CDF996 1558 

17 CDD396C39B92FE352006 1407 

18 CD3393C39B92FD36CE00 1412 

19 C39B92CD6E0DRFCD0116 1227 

20 216C95CDEB99CDB89BCD 1632 

21 629BE5E5CDB694E10613 1496 

22 C5E5CDDB9RCDCF94E1E5 2018 

23 7CCD439BE1E57DCD439B 1557 

24 E1E56E2600E5CDDB9RCD 1614 

25 CF94E 17DF5CD439BCDCF 1789 

26 94F1FEF92009D73E08D7 1433 

27 3E0DD71808FE203801D7 880 

28 3E0DD7E123C110BC0100 948 

29 00CDD694E1CDER94FE41 1698 

30 2008111300B7ED52189E 760 

31 FE43200RRFB82O961113 940 

32 00191890FE522001C9FE 1017 

33 44Cfi33*¿r« r 3F2022E5CD 1285 

34 6B0D3E02CD0116218395 725 

35 CDEB992RR69DCDDB9R21 1569 

36 8096CDEB99E1CDER94C3 1878 

37 4693FE0B200E78B728RB 1042 

38 CDD694052BCDD69418R1 1367 

39 FE0R200F78FE122898CD 1100 

40 D6940423CDD694188EFE 1388 

41 45208RE5CD6E0DRFCD01 1177 

42 16219496CDEB99CDER94 1533 

43 F5CD6E0DF1E1FE442013 1412 

44 E521RD96CDEB99CDB89B 1722 

45 CD629B7DE177C34693FE 1593 

46 48C29993E521BF96CDEB 1609 

47 99060021D196CDER94FE 1392 

48 0D2844FE0C201578B728 783 

49 F1052BE5C53E08D73E20 1094 

50 D73E08D7C1E118E0F578 1531 

51 FE022003F118D7F1FE30 1314 

52 38D2FE4730CEFE41380R 1230 

53 F5D7F1D63777042318C0 1344 

54 FE3R30BCF5D7F1D63018 1535 

55 F078FE0220B021D1967E 1342 

56 CB27CB27CB27CB2723B6 1185 

57 E177E5CD6E0DE1C34693 1538 

58 CD6B0DRFCD011621F594 1154 

59 CDEB993E02CD01162110 934 

60 95CDEB99C93E20D73E20 1346 

61 D7C9E5C53E16D7C1C578 1651 

62 3C3CD7215395CDEB99C1 1386 



63 E1C9RF32085C3R085CB7 1092 

64 28FRC95041524120494E 966 

65 464F524D4143494F4E20 702 

66 50554C534152203F0DFF 834 

67 44495220442020445220 569 

68 48202044454320204858 564 

69 20202043415241435445 595 

70 52200D3D3D3D3D3D2020 496 

71 3D3D3D3D20203D3D3D20 523 

72 203D3D20203D3D3D3D3D 523 

73 3D3D3D3D3D0DFF001501 595 

74 20202020203C3E202020 378 

75 203C3E2020203C3E1500 393 

76 0DFF444952454343494F 846 

77 4E20454E20444543494D 643 

78 414C3F20FF1600041301 537 

79 140120494E5354525543 605 

80 43494F4E455320454449 691 

81 544F5220140013000D0D 342 

82 0D432E2D20434F4E5449 584 

83 4E554152204C49535441 723 

84 4E444F0D0D412E2D2052 521 

85 4554524F434544455220 701 

86 454E204C49535441444F 707 

87 0D0D522E2D205245544F 545 

88 524E4F20414C204D454E 668 

89 550D0D442E2D2043414D 511 

90 42494152204449524543 677 

91 43494F4E204C49535441 710 

92 444F0D0D452E2D204544 502 

93 4954415220454C204F43 659 

94 5445544F2044454C2043 660 

95 5552534F520D0D202020 533 

96 2053452050554544454E 665 

97 205554494C495R415220 692 

98 5445434C415320444520 645 

99 20202053554249522059 606 

100 2042414R415220435552 650 

101 534F520D0D2020202043 465 

102 4F4D49454E5R4F205052 739 

103 4F4752414D4120FF2028 798 

104 454E2020202020444543 511 

105 494D414C292E0DFF4445 783 

106 43494D414C204F204845 642 

107 5841443F2028442F4829 584 

108 200DFF4F435445544F20 794 

109 454E20444543494D3F20 628 

110 FF4F435445544F20454E 896 

111 2048455841443F20FF00 744 

112 00RFCD0116CD6E0D21EB 999 

113 96CDEB99FD36CE00FD7E 1635 

114 CEB728FRC9505S4C534 1 1269 

115 52205445434C410DFF2R 785 

116 R69DEDSBD15B197EFE80 1484 

117 C84F3R9D9DB7C879E5E6 1614 

118 E0FE602012214198CD17 1102 

119 983E0DD73E0DD7E11106 980 

120 0018DBFEE02012215498 1040 

121 CD17983E0DD73E0DD7E1 1185 

122 11130018C5FER0201821 760 

123 4198CD1798E1237ECB7F 1313 

124 2005E5D7E118F5E5CBBF 1598 

125 D718C2FE802014216798 1155 

126 CD1798CDD5973E0DD7E1 1464 

127 235E2356231891FIZ4020 804 

128 33217R98CD17983E24D7 1051 

129 CDFF97E1234E234623E5 1318 

130 C5E5C57ECD439B3E20D7 1485 

131 3E20D7C1E1230B78B120 1102 

132 EC3E0DD73E0DD7D1E1C3 1445 

133 0097FEC02029218D98CD 1201 

134 17983E24D7CDD597E100 1282 

135 234E234623C5E55E1600 795 

136 191923E56069B7ED52ED 1254 

137 52444D0BE118B4E1C93E 1155 
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138 28D73E29D73E0DD7212R 938 

139 98CDEB99D1E1E5D52323 1691 
14.0 2346235E2356E5C5EBCD 1221 

141 DB9RC1E12310F23E0DD7 1374 

142 C93E28D73E29D73E0DD7 1126 

143 213798CDEB99D1E1E5D5 1709 

144 23060118D6C5E53E02CD 975 

145 0116E1CDEB99C179E61F 1416 

146 C640D7C944494D454E53 1126 

147 494F4E45533RFF4C4F4E 928 

148 47495455443RFF564152 927 

149 4941424C45204E554D45 690 

150 5249434120FF4255434C 868 

151 4520464F522D4E455854 696 

152 20202020FF4D41545249 764 

153 5R204E554D4552494341 718 

154 202020FF434144454E41 763 

155 20434152414354455245 682 

156 5320FF4D4 15452495020 873 

157 43415241435445524553 733 

158 20FF002100003922D65B 716 

159 2RR69D7EFE80C83R9D9D 1445 

160 B7C8E5ED5BD15B1922ER 1533 

161 5BRFCD0116CD6E0D2173 970 

162 9DCDEB99CDB89BCD6E0D 1622 

163 CD629B444DE17EB8380R 1204 

164 2006237EB938042B1815 532 

165 23235E23561923E5ED5B 902 

166 ER5BB7ED52E 1CR3B9B 18 1492 

167 DD7E23E56E67CDDB9RE 1 1627 

168 234E2346230B7EFE2030 724 

169 41FE0D201878B120F13E 1020 

170 0DCD539923E5ED5BER5B 1371 

171 B7ED52E 1CR3B9B18D0FE 1629 

172 0E20093E050B233D20FB 512 

173 18D0FE1620043E0218F1 873 

174 FE1728F8FE1038C0FE16 1359 

175 30BC230B18B8CD539918 955 

176 B3E5D7E1C92100003922 1173 

177 D65BRFCD011621D199CD 1308 

178 EB993E02CD0116DD2184 1066 

179 9D3E0011130037CD5605 606 

180 3R849DB7C2129R21849D 1218 

181 11C25B011100EDB0216B 873 

182 9RCDEB99CDF999EB2175 1739 

183 9RCDBF99131RCB7F2803 1121 

184 1318071B21889RCDBF99 949 

185 219B9RCDBF992RR69D3E 1318 

186 8077RF329D9DC3519RCD 1421 

187 EB99EB5E235623EBD5CD 1526 

188 DB9R3E0DD7D1C9504F4E 1310 

189 45522043415353455454 718 

190 4520454E204D41524348 643 

191 410DFFD57EFEFF2806E5 1456 

192 D7E12318F5D1C921849D 1476 

193 23060R7EE5FE2030023E 804 

194 3FD7E12310F3E53E0DD7 1316 

195 E1C9FE01200B21RE9RCD 1290 

196 EB99CDF999181BFE0220 1334 

197 0C2 1BF9RCDEB99CDF999 1590 

198 C33C9RFE0321D29RCDEB 1503 

199 99CDF9990670DD21849D 1421 

200 3E0011000037CD56053E 492 

201 0DD7C36D99DD2RR69D3E 1333 

202 FFFD5E93FD569437CD56 1582 

203 05DD3600803E01329D9D 835 

204 C950524F4752414D4120 834 

205 FF544F54414C204F4354 905 

206 45544F532020202020FF 730 

207 434F4D49454E5R4F2045 713 

208 4E204C494E454120FF4F 837 

209 435445544F532050524F 739 

210 47524 1404 12020FF4D41 821 

211 5452495R204E554D4552 752 

212 49434120FF4D41545249 873 



213 5R204341524143544552 703 

214 455320FF4F435445544F 901 

215 5320FFDD212C9B0605DD 1055 

216 5E01DD5602DD3600007C 803 

217 BR300RDD23DD23DD2310 1028 

218 ER18102808B7ED52DD34 1097 

219 0018E87DBB38E818F23E 1184 

220 02CD0116212C9B06050E 487 

221 207EB7200F05280B0481 577 

222 E5D7E123232310EFC904 1234 

223 0E3018F100102700E803 617 

224 006400000R000001002R 153 

225 D65BF9C9O00000F5E6F0 1470 

226 0604CB3F10FCCD569BF1 1231 

227 E60FCD569BC9FE0R3004 1208 

228 C6301802C637D7C93E05 1008 

229 32R89BDD21R99B210000 984 

230 01RE9B0R035F0R57DD7E 882 

231 00FE3R380E2025DD233R 765 

232 R89B3D32R89B20ECC9FE 1480 

233 303815D6302804193D20 549 

234 FCDD23033RR89B3DC832 1203 

235 R89B18CD210000C9003R 844 

236 3R3R3R3R01000R006400 343 

237 E8031027RFCD011621R9 895 

238 9B0605C53E3R772310FC 905 

239 2BC 1FD36CE00FD7ECE87 1517 

240 28FRFD36CE00FE3R30F2 1405 

241 FE0DC8FE0C20183E05B8 1040 

242 28E60423363RC5E53E08 917 

243 D73E20D73E08D7E1C118 1251 

244 D3FE3038CF32R896RFB8 1508 

245 3RR89B28C5772B05C5E5 1211 

246 18E62RR69D7EFE80C83R 1385 

247 9D9DB7C8RFCD0116217R 1255 

248 9CCDEB99FD36CE00FD7E 1641 

249 CEB728FRFE4E2804FE6E 1419 

250 2008FD369500FD369680 1081 

251 RFCD0116CD6E0D21919C 1065 

252 CDE899FD36CE00FD7ECE 1691 

253 B728FRRFCD6E0D111100 1010 

254 DD21C25BRFCDC2040632 1173 

255 FB76 10FD3EFFDD2RR69D 1541 

256 ED5BCD5BCDC204C94155 1378 

257 544F454R45435543494F 746 

258 4E3F2028532F4E29200D 507 

259 FF504F4E455220434153 890 

260 53455454452059205055 707 

261 4C534152205445434C41 699 

262 0DFF16090C1401130120 384 

263 4D454E5520140013000D 393 

264 0D20202020312E2D204C 389 

265 4F41442050524F475241 703 

266 4D410D0D20202020322E 392 

267 2D204C4953544 1522050 652 

268 524F4752414D410D0D20 579 

269 202020332E2D20534156 504 

270 452050524F4752414D41 702 

271 0D0D20202020342E2D20 329 

272 4C495354415220564152 728 

273 4941424C45530D0D2020 522 

274 2020352E2D2045444954 534 

275 4152204D454D4F524941 701 

276 0D0D202020203*62E2D20 331 

277 5245544F524E4F20414C 726 

278 2042415349430DFF2020 718 

279 2020202020201201204D 320 

280 4152434 152204F504349 692 

281 4F4E2012000DFF4C4953 707 

282 5420515545204C494E45 679 

283 413F20FF434142454345 818 

284 5241205052494D455241 707 

285 20202020202020000000 224 

286 000000080000B888RE9D 659 

287 00000000000000000000 0 
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Sobrevivir en aquel 
tiempo era una tarea 
casi imposible, el 
futuro no se presentaba 
nada esperanzados la 
única posibilidad era 
marcharse a otro país. 

El objeto del juego es el ayudar a re- 
coger a nuestro amigo todos las pie- 
zas que pueden hacer posible la hui- 




da, de las que algunas nos servirán y 
otras nos facilitarán el poder conseguir 
las necesarias. 

La mansión por la que tendrá lugar 
nuestra aventura tiene 72 habitacio- 
nes, repartidas en 6 plantas con 1 2 ha- 
bitaciones cada una, en las que halla- 
remos lanzarrayos y espadas que sur- 
gen del suelo. Para pasar de una a 
otra, encontraremos puertas, cuerdas 
y trampillas. 



Esta es la relación de piezas a en- 
contrar, objetivo de nuestra misión: 

El cheque, el bolígrafo, el pa- 
saporte, el mechero, la bom- 
bona, el barreño, el casco, el 
dinero, la tinta, el enchufe, la 
caja fuerte, la maleta, la lla- 
ve, el pasaje y el dulce. 

Si tenemos el bolígrafo vacio y co- 
gemos la tinta, conseguiremos llenar- 
lo. Con el bolígrafo cargado, podre- 
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m 


ga- 




sa 


a» 



TOLEDO. 




mos firmar el cheque. Con el cheque 
firmado y el pasaporte conseguiremos 
el pasaje. Con el mechero sin gas y la 
bombona, llenaremos el mechero. 
Con éste lleno, podremos encender el 
barreño, y yo con el barreño encen- 
dido y el casco, conseguiremos derri- 
bar el muro que nos impide coger la 
maleta. Con el pasaje y la maleta ob- 
tendremos la llave, con la aue, junto 
con el dinero, finalizaremos la misión. 



El enchufe y la caja fuerte no tienen 
ninguna utilidad. 

El programa lleva algunas rutinas en 
código máquina muy cortitas y sim- 
ples, como una rutina que genera un 
juego de caracteres simplemente ro- 
tando alternativamente los bits y com- 
parándolos con los originales. 

En cuanto a las teclas de control son: 
a - subir/bajar 
z - on/off interrup. 



o - izquierda 
p derecha 

Si se hace BREAK posiblemente sal- 
drán unos signos muy raros. Hacien- 
do GO SUB 9998 aparecerán de nue- 
vo los caracteres normales. 



Neta: Todos los espacios, salvo los de las li- 
neas 101 y 102, deben teclearse pulsando en 
modo gráfico «8». En los textos y DAT As no ha- 
ce falta. 
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1 PRPER O BORDE R e INK 6 B 
RICHT 1 CLS CLERR 64244 GO 5 
U6 8990 

4 CLS PRINT RT 18. IB. FLRSH 
" • PREPRRRTE ' M GO SUB 9999 



LET oí I4i ■ 

91 DIH r 1 15) LET r ( i 
0«72> ♦! FOR t =2 TO 15 

92 LET rCtl.IMT (RND«72)«1 

93 FOR fl»l TO t IF r (ti =f ( «I 
RND t<>9 OR rít>»42 THEN GO TO 9 



«INT (RN 



94 NEXT 9 NEXT t LET r(13>«4 

95 DIH v»(15> FOR d«l TO 15 
LET v»(d)=CHR» (188*d> NEXT d 

96 DIM Sí 151 FOR v = l TO 15 L 



NEXT 
TO 15 



ET % (V) « INT (RND*19I 
LET S (13) «7 

97 DIM C ( 15) FOR f 

98 LET cifisINT IRND«51 
C ( f ) «5 TMEN GO TO 98 

99 NEXT f 

10B LET Sf=l LET hb=INT ( RND «7 
D*l LET ce=0 LET es=0 LET el 
=13 LET tire LET coa=0 LET vi 
«5 LET z=0 LET bl=0 LET b2=0 

LET b3«0 LET cl«l LET C2-3 L 
ET C3«5 LET C4.7 LET x»«" 

■• iirr t,.i» LET 0¿«""¡ LET X 
LET a=0 

' V. tt'*BB' »CMR» 3 

♦ ' y. (#.••/.)♦- 1 «bbb 



182 LET b»«"4>' ' * XII 
•*CHR» 34 

183 LET df»"8" LET e*=135246" 
LET f»»"7 B,9<" LET gl'"'^»* 

6" LET h»«"CDC" LET i|«"EFE" 
LET j»«"GMI" LET 1»«"JKLM" LET 
l »«'UUUXYZ" 

138 LET B»« NNNNNNNNNNNNNNNNNNN 



148 LET r»$«"Jt_£" CLS INK 4 

141 GO SUB 9995 PRINT 88," LR 
FUGR ' © RLBERTO TOLEDO . " GO SU 

B 9999 

142 PLOT 8.14 DRRU 177,8 PLOT 
177.18 DRRU -177,8 DRRU 8,3 
144 PLOT 188.8 DRRU 8.18 DRRU 
75,8 DRRU 8,3 DRRU -78.8 DRR 

U 8,-21 DRRU 3.8 INK 6 

14é PRINT RT 28 ,23, "O O O O O", 
RT 21,23, "P P P P P f - GO SUB 598 



1818 IF jlhb)«l TMEN IF x>3 RND 
«<23 TMEN GO SUB 3588 
1815 IF j(hb>»2 TMEN GO SUB 3288 
1817 IF hb-42 TMEN IF <B«6 OR di 
=6) RND lt:7 OR di -7) RND C3 = 6 R 
ND bl«8 TMEN GO SUB 3788 LET C3 
«6 LET bl«l 

1828 IF INKEY B ■ "O " RND RTTR (17, 
X-ll<>69 TMEN LET x«x-l BEEP .8 
— 38 GO SUB lir~ 



.. . >69 TMEN LEI 
885,38 GO SUB 1288 
1845 IF INKEY»«"Z" TMEN GO SUB 1 

1858 GO TO 1888 

1188 IF x «8 TMEN GO SUB 2588 LE 
T hb«hb-l GO SUB 4588 GO TO 18 



1182 IF w| 

SUB 2888 
1166 LET »». SCREEN» 



TMEN LET h9'2 



GO 
IF C 



1118 PRINT INK 6.RT 
/2.INT (x/2l)).RT 16, 
1115 IF z >8 TMEN IF t 



Rt 16, x.' "R 



ODE *)»>115 OR CODE ti«<l8e TMEN L 

TMEN PR 
|IZI L 

LET tr 

■ 8 

1117 RETURN 

1280 IF x «26 TMEN GO SUB 2588 L 

ET hb=hb*l GO SUB 4688 GO TO 1 
008 

1282 IF ■•<>••" TMEN LET h9«-2 C 

O SUB 2880 „ 

1284 LET •♦•SCREEN* (17.x) IF C 

ODE •»<180 OR CODE ««>11S TMEN L 



ET »$ = ••" 

1216 PRINT INK 6,RT 17,x-l,o»ll« 
<x/2=INT (x/2))).RT 16.X-1," O" 
1215 IF Z>6 TMEN IF tf«l TMEN PR 
INT RT 17.X-1, INK C(Z),V»(Z> L 
ET *(z)«x-l LET r(z)»hb LET tr 
=8 

1217 RETURN 
1388 RETURN 

1318 RRNDOMIZE USR 64245 LET Sf 
=1 RETURN 

1518 IF POINT (6«x«4,38>«8 TMEN 
LET hb=hb«12 GO SUB 2588 GO SU 
B 5988 LET M » «SCREEN» 117.x) F 
OR h«l TO 15 PRINT INK 6,RT h-1 

, x,"b",RT h.x, "c".RT h*l,x,"d" 
BEEP .83. -h NEXT h PRINT RT 15 

,x,"b",RT 16, x, •0",RT 17, x, "P" 
RETURN 

1520 IF POINT (6«x*3,48)«l TMEN 
PRINT RT 14 ,x . "C ". RT 15 , X , "d " , RT 
17, x," " FOR h.15 TO 1 STEP -1 
PRINT RT h*l ,x "b", RT h,x,"d". 
RT h-l,x,-C" BEEP .03, -h NEXT 
h LET hb-hb-12 GO SUB 2500 GO 
SUB 5900 LET «««SCREEN» (17,x> 

PRINT RT 16, X, "0",RT 17.x, "P" 
RETURN 
1530 RETURN 
■- "F COD! 

28 STL. . 

FOR 4 =28 TO -28 STEP 
EEP .885,4 NEXT 4 LET Vnvill 

PRINT RT 28.21 «vi t2. "O" . RT 21,2 
l«vi«2,"P" LET f(15)«8 RETURN 
2085 LET Z=di LET di>l LET B «C 

ode «t-iee 

2818 PRINT RT 19,8, INK C(B),v*l 
B). GO SUB 9998 PRINT " ", INK 

C (B> -1,*«(B> ,x* CO SUB 9999 I 
F di>8 TMEN PRINT RT 21,8, INK C 
(di).v»(di>, GO SUB 9998 PRINT 

• INK C (di ) -1, S* (di ) , Xi GO 

UJfl \> 99 9 

2811 IF B-l OR di si THEN GO SUB 
9998 PRINT RT 1 9 «2 ♦ Id i =11,12. I 
NK (RNDfS) «3,Ot IC4) GO SUB 9999 
2612 IF a=2 OR di =2 TMEN GO SUB 
9998 PRINT RT 19«2t (di =2) . 15 1 I 
NK IRND#5) O.UIKD i TO 5) GO 5 
UB 9999 

2813 IF B=4 OR di «4 TMEN GO SUB 
9998 PRINT RT 19«2ff (di =41,13, I 
NK (RN0»5) «3. u» (C2I GO SUB 9999 

2814 IF B=6 OR di «6 TMEN GO SUB 

9998 PRINT RT 19 «2 ♦ ( d i =6 ) , 13 , I 
NK (RND»5) «3,U»(C3) GO SUB 9999 

2815 IF (B=2 OR di »2) RND (B«9 O 
R di =9) RND (1=1 TMEN GO SUB 999 
8 GO SUB 3888 LET c 1 =2 PRINT 
RT 19*2. (di «2) , 15,U»(C1) ( TO 5) 

GO SUB 9999 

2816 IF m-l OR di «II RND (B=2 O 
R di>2) RND C4-7 RND C 1 «2 TMEN G 
O SUB 9998 LET C4«6 GO SUB 388 
8 PRINT RT 19«2« (di al) , 12. U$ (C4 
) CO SUB 9999 

2819 IF (a«4 OR di «4) RND (B»5 O 
R di -5) RND C2-3 THEN GO SUB 999 
8 LET t2«4 GO SUB 3888 PRINT 
RT 19«2« Idi =4) , 13, INK (RND*4)«3 
,u«(c2) CO SUB 9999 

2820 IF (••! OR di=l) RND (B«3 O 
R di -3) RND (1=2 RND b2=0 THEN G 
O SUB 9998 GO SUB 3000 GO SUB 

9999 PRINT RT 17,1 (141 «2*( RTTR 
(17, S 1141 > =78) . INK C(14),V«(14) 

LET b2«l 

2821 IF (a«13 OR dt«13) RND (a-1 
4 OR di =141 RND b3«8 THEN GO SUB 

9998 GO SUB 3888 GO SUB 9999 
PRINT RT 17, S (12) «2» (RTTR (17, S 
(12)) ■78). INK c(12),v»(12> LET 
b3-l 

2822 IF (a«12 OR di «12) RND (B>8 
OR di =81 THEN BEEP 1,58 GO SUB 
5488 GO SUB 4988 

2823 IF (B =4 OR di =4) RND (B«6 O 
R di =6) RND C2«4 RND C3=5 THEN G 
O SUB 9998 LET C3»6 GO SUB 388 
8 PRINT RT 19«2» (di .6) , 13, INK 
(RND «4) «3, u» ( c 3) GO SUB 9999 
2828 LET s(B)=8 LET fia) =8 LET 

turn"" LCT tf=1 BecP ■ 1,3e RC 

2580 PRINT RT 1.0, <|» LET *1«5 
RETURN 

3688 FOR »»1 TO 4 FOR b=l TO 7 
PRINT RT 19,2, OUER 1, INK b, ' 



" . RT 21.2. " 
BEEP .61. RND» 
26 NEXT b NEXT * RETURN 
3205 IF el=x THEN FOR b=l TO 4 
POKE 64583«b.O NEXT b GO SUB 4 
2O0 LET e l=x «4* (x < 10) -4» (x >10) 

IF CODE SCREENft (17,el) > 100 THE 
N LET cl=el«l 

3210 LET ti«ti«(«í«2) IF ti«10 
THEN IF ce=0 THEN PRINT RT 17, «1 
• LET t . =0 LET el=0 LET ti 
«0 CO TO 3220 
3212 IF es «2 THEN RETURN 
3230 LET es=INT (RND«3l«l IF (S 
= 2 THEN LET CC>0 LET elsINT I RN 
D«22) «2 IF CODE SCREEN» 117, el) 
<161 THEN PRINT INK 7.RT 1 7 , e 1 , " 
• ' LET t i =1 i «1 RETURN 
3248 IF es =2 RND CODE SCREEN» (1 

7,ei)>iee then let ce «i let es« 
8 

3278 RETURN 

3518 LET II « INT (RND*5)«1 IF «a 
< 4 TMEN RE RN 

3538 LET df«»NT (RNDl8)-3 FOR d 
■1 TO 2 OUER 1 PLOT 199,58 DR 
RU - (26-x -de -1) 16*4 . -19 LET coa 
=1 RND (dr=8> NEXT d 
3548 OUER 8 IF COB=l RND vi>8 T 
HEN POKE 64584,237 POKE 64585.9 

5 POKE 64566,211 POKE 64587,25 
4 CO SUB 4288 LET coa «8 

3566 RETURN 

3716 OUER 1 GO SUB 9998 FOR 3= 
1 TO 4 FOR b«l TO 7 FOR C»l TO 
3 PRINT INK b,RT 14 «C, 5," , RT 
14«C.9.'° " NEXT C BEEP .685.4 

e«4»b«c beep .ees,RND*3e next 

b NEXT » GO SU6 9999 OUER 6 
3728 FOR 4 ■ 1 TO 3 GO SUB 9998 
PRINT RT 14«*,5," . RT 14*4.9,' 
NEXT « GO SUB 9999 RETURN 
, 4618 FOR P «8 TO 7 OUER 1 PLOT 
| x*8.48*P DRRU 7,8 BEEP .005,40 
♦P BEEP .©05,20*P PLOT x«8,39- 
p DRRU 7,0 BEEP .005. 30 «P BEE 
P .005,10«2*P OUER O NEXT p R 
ETURN 

4210 GO SUB 9996 PRINT RT 16 , x , 
" , RT 17, x." " GO SUB 9999 
4228 PLOT (x*l) 16*3,44 BEEP .88 
4,28 DRRU -3,-3 PLOT (x*l>*8*3 
,32 BEEP .865.38 DRRU -3,3 PL 
OT x «8-3,32 BEEP .865.48 DRRU 
3.3 PLOT x «8-3,44 BEEP .885,56 
ORRU 3,-3 PLOT 8«x«3,38 DRRU 
2,8 

4238 PRINT RT 21.21«vi»2. INK 2, 

P- RT 26,21*vi «2. "O 
4235 PRINT RT 16 , X - 1 , " " . RT 17 
.X-í; " RRNDOHIZE USR 64575 

4238 GO SUB 5962 

4239 NEXT 4 

4246 LET V i «V > - 1 FOR 4 «38 TO -1 

6 STEP -1 BEEP .864.* NEXT • 
IF vi >8 THEN PRINT INK 8. INUERS 
E l.RT 16,x,"0".RT 17,x,"P" CO 
SUB 4886 RETURN 

4256 GO TO 5886 

4828 LET x «25 GO SUB 5966 PRIN 

T RT 16,x.R".RT 17.x, "S" RETUR 

4616 LET x«l GO SUB 5968 PRINT 
RT 16.x, "O", RT 17,x,"P" RETURN 
4968 GO SUB 9998 PRINT RT 7,7, 
FLRSH 1, INK l,-'«LO CONSEGUISTE 
I ! RT 15,7, INK 2 "'YR ESTRS R 
SRLUO 1 " . B8 , TRB 8, "PULSR UNR TECL 
R' ■ 

4916 RESTORE 4911 FOR 4=1 TO 48 
RE RD be BEEP . 1 , bC 

4911 DRTR 4.23.8.28.11.16.4,23.8 
.26, 11 . 16,5,24 ,9,21 ,12, 17,5,24 ,9 
,21 , 12, 17,7,26. 11 .23. 14 , 19.S.24 , 

9. 2Í . 12, 17,4 ,25.8,26 . 11 . 16.4.23. 

8 ,26. 11 , 16 

4912 IF INKEY»<>"" THEN GO TO 58 
88 

4913 <-ZyT 4 GO TO 4918 

5816 PRPER 8 INK 6 CLS GO SU 
6 9998 LET 

FRRCRSRDO . puuso . s . ppRo 

I NT ENTRRLO OTRR UEZ Y n' PRRR 
RUTODESTRUCC ION" 

5815 IF <Bc6 OR di «6) RND (B»12 
OR di «12) THEN LET t»«l«( TO 361 



MICROHOBBY ESPECIAL 



♦ l»(6 



♦ 'MRS CONSEGUIDO FUGRRTE ' 

1 TO I 

5828 cls co sub 9995 print rt 

1.8, INK 0,1$ GO SUB 9996 RRN 
DOMIZE USR 64*39 

5838 RESTORE 5831 FOR 4-1 TO *B 

RERD bp BEEP .15,bp 
5831 DRTR 8,19,4,16,7,12,0,19,4, 
16 , 7, 12, -3, 16 ,8, 12 ,4,9, -3, 16,0. 1 
2,4,9, -7, 12, -3,9,0,5, -7, 12. -3.9, 
0,5. -5,7,-1,11, 2, 14, -5, 7,-1.11,2 
. 14 

5040 IF INKEY»="s" TMEN GO TO 50 
70 

5050 IF INKEY ♦ » "n " THEN GO TO 51 
00 

5060 NEXT 4 GO TO 5030 

5070 GO SUB 9997 RRNOOMIZE USR 

64539 GO TO 4 

5188 CLS PRINT RT 6,9, FLRSH 1 
. RUTOOESTRUCCION , 08. 1 PULSR UNR 
TECLR PRRR DETENERLR" FOR R = 49 
9 TO 8 STEP -1 PRINT RT 18.14.R 
IFR/10-INT (fi/10) THEN BE 

TMEN GO TO 50 
00 

5110 NEXT R FOR 4*1 TO 10 RRND 
0MI2E USR 64575 NEXT 4 STOP 
5400 FOR 4x1 TO 100 NEXT 4 PRP 
ER 5 INK 0 CLS LET l«18 LET 

ÍI--1 LET fi»l GO SUB 5600 G 
O SUB 5750 GO SUB 542© 
5405 FOR C-l TO 3 CLS LET 1-9 
LET f l «0 LET fi*l GO SUB 565 
0 GO SUB 5420 NEXT C 
5410 CLS LET íl-1 LET fi«-l 
GO SUB 5600 GO SUB 5420 
5415 CLS GO SUB 5650 GO SUB 5 
700 FOR b-29 TO 11 STEP -1 FOR 

9=1 TO 3 BEEP .005,0 NEXT 9 
PRINT INK 1,RT 20, b, "xy " NEXT 
b GO SUB 5430 RETURN 
5420 FOR 4-29 TO 1 STEP -3 FOR 
b>0 TO 2 

5425 PRINT RT l,4-b, INK l,"xy " 
. RT l ♦ í i , • -b, " " FOR 9-1 TO 3 

BEEP .005.0 NEXT o NEXT b 
LET l»l*fl NEXT 4 RETURN 
5430 POKE 65384,0 POKE 65305,0 
POKE 65306,184 PRINT INK 1,RT 
20,ll,"xy" FOR C-10 TO 4 STEP - 

2 FOR b-1 TO 2 FOR 4-1 TO 10 
NEXT 4 PRINT RT 19,C-b,"R " , RT 
20,C-b.O»(2*b> BEEP .005,0 NEX 
T b NEXT C PRINT RT 19,2," " , R 
T 20,2." " RETURN 
5608 PRINT INK 2.RT 21, O.-)*»» 
TO 51 FOR 4-1 TO 23 STEP 11 
INT 



ov rtiini á rtr\ c, mi < i , w . ■ i • ■ i 

5) FOR 4-1 TO 23 STEP 11 PR 

NEXT 4 RETURN 
5650 PRINT INK 2.RT 21, O, ■*•••< 
TO 5) FOR 4-1 TO 23 STEP 11: PR 
INT INK 7.RT 4 , 1 *4 , • -mjámMm , RT 
5.1*4, " TÉnÉ™*" , RT i¿. i*4, "aJÉB 
_L" NEXT 4 RETURN 

5700 PRINT RT 19,1, INK l,"z",RT 

20,0, "ti" RETURN 
5750 PRINT RT 28,30, INK l,"xu" 

FOR t-0 TO 2B STEP 2 FOR b-1 T 
O 2 POR 4-1 TO 10 NEXT 4 PRIN 
T RT 19,C*b," 0",RT 20,e*b,O»(b> 
BEEP .005,0 NEXT b NEXT C P 
OKC 65304,6 POKE 65305,5 POKE 
65306,106 PRINT RT 20,30," 
RETURN 

5910 PRINT RT 0,0, PRPER 2, INK 

Efli ¡nn tiñT uutj pape? ~ 



135 DRRU 3,0 DRRU 0,135 PLOT 
212.167 DRRU O, -135 DRRU 3,0 
DRRU 0.135 INK 6 

5940 LET n=p Ihbl LET ql«p<hb«l> 

FOR r-1 TO URL P* 141-11 
5945 IF CODE P»íq><57 RND COOE P 
*(q> <>55 THEN LET sy*URL P»(q*l 
TO q*2> LET »x»URL P»<q*3 T<J q* 
41 LET l-URL pf(q*S> 
5950 GO SUB 6000 «URL Piiq>»lO0 

5960 IF hb«r(12> RND b3-l THEN P 
R INT RT 17.1(12). INK C(12>.V«(1 



PLOT 0, 167 DRRU I 



hb-18 T MC N PRINT RT 15,0. hfíl), 
RT 16 , 0,h • (2) , RT 17,0,hf(3> 
5962 FOR j-1 TO 11 Ir hb-ríj) T 



MEN PRINT RT 17 , S ( j >♦ (POINT (BtS 
( j> *3, 48) «1) ♦ (POINT (8.S(j>*4.38 
) =0) , INK C ( j) , w»( j) 
5963 NEXT j RETUPN 



211,63 DRRU -3.0 DRRU 0,-2 u 
RRU 3,0 INK 6 

5967 IF hb-r(14> RND b2 = l THEN P 
R INT RT 17,S(14>. INK C(14),v«(l 
4) 

5966 IF hb-42 RND bl-0 THEN FOR 
4-1 TO 3 PRINT RT 14*4,5, INK 5 
,"t",RT 14*4.9. "t" NEXT 4 PRIN 
T INK C(13),RT 17,* (13) , "S" 
5969 IF hb-9 THEN PRINT RT 15,26 
RT 16,26, >« (21 ,RT 17,26. i 



5970 RETURN 



6030 IF URL t»>70 THEN PRINT INK 
URL p«(q*v*2),RT URL tf.-70.25," 

*", INK (URL P»(q*w*2) -I) ,RT URL 
t t-71 ,25, "4" PLOT 288,(21- (URL 
tft-70>>*6 DRRU 4,0 DRRU 0,1 

DRRU -4,0 GO TO 6070 

6040 IF URL t»)41 THEN PRINT INK 
URL P»(q*w*2),RT 1 , URL t»-40,n» 

(1),RT 2, URL tt-41,nf(2 TO ), IN 

K (URL p»(q*V*2) ) -1,RT 1,URL tt- 

41, RT l.URL t»-39,"4" GO TO 

6070 

6050 IF URL l»<21 THEN PRINT INK 

URL pf(q*v*2),RT URL tt,l, "C", 
INK (URL p $ ( q * v * 2 ) - 1 ) , RT URL »»- 
1,1. "4" PLOT 4.Í21-URL t*>»6 D 
RRU 3,0 DRRU 0.1 DRRU -3,0 
6070 NEXT w INK 6 LET q-q*2*3* 
URL p«(q*l) RETURN 

6120 PRINT RT sy,*X, INK l.4§( T 
O 4),RT SU*4,SX,4t(9 TO ) FOR l 
-1 TO 3 PRINT RT su*l,sx, INK t 
.4» (5), INK 5, PRPER 7, 4» (6 TO 7 
), PRPER 0, INK t,4t<6> NEXT l 

LET q-q*6 RETURN 
6220 PRINT RT sv.sx, INK t,bf( T 
O 5>,RT sy*l.SX, bflfl , INK URL p 
f(q*6),b»(7 TO 9), INK t,b$(10), 
RT *M*2,*X, b$(ll) , INK URL P»<3* 
6),bf(12 TO 14), INK t,b«(15),RT 

S«*3,SX, b»(16 TO ) LET q-q*7 
RETURN 

5320 PRINT RT 
3 3) . RT tw*l 
»q*6 RETURN 
6420 PRINT RT IV 
O 3),RT ty*l,sx, iiw i 

) : LET q-q*é RETURN 
6520 PRINT RT sv,Sx*l. INK t,fc«( 
1 ) , RT SV*l.*x, INK t-l,H»(2 TO ) 

LET q«q*6 RETURN 
6620 PRINT RT sy,sx, INK (,<»< T 
O 2),RT Sy*l,SX,ft(3 TO 4),RT sy 
♦2,tx.f»(5 TO > LET q-q*6 RETu 

6705 LET *v»URL P»(q*l TO q*2> 
LET SX-URL P$(q*3 TO q*4) LET l 
o «URL P»(q*5 TO q*6) LET t «URL 

6720*PRINT RT SV.SX. INK t.j»(l) 
FOR l-l TO 10 PRINT INK l.jt 
NEXT l PRINT INK t,j»(3) 
' » 11 «8.?. 167 
PLOT (i.X + 10 
1SV«0) -9) I 



672é INK t PLOT 

DRRU O,- ( (»U*6) -_ 
) *8*5, 167 DRRU 0, - 



II, RT *y*l,*x,li(2 TO 4),RT *y*2 
,SX*1, li(5) ,RT sy*3.sx*l. l»(6) 
LET «»q*6 RETURN 

6905 FOR v-2 TO 2 tURL P«(q*l> ST 
EP 2 LET tft-p«(q*v TO q*v«l) 
6915 IF URL t$>31 THEN FOR • -O T 
O 15 PRINT RT »,URL t»-31,"b" 
NEXT C GO TO 6960 

6920 IF t»."00" THEN PRINT INK 6 
, RT 15,0, h» ( 1) , RT 16 .0. h« (2> , RT 
17,0, h»(3) GO TO 6960 
6930 IF |1 «"26" THEN PRINT INK 6 
, RT 15,26, ifl 1) , RT 16 .26, i • (2) , R 
T 17.26,1» (3) GO TO 6960 



6940 IF URL t»>31 THEN PRINT INK 

6,RT 15, URL t»-31,C»( TO 2) .RT 
16, URL t«-31,C$(3 TO 4),RT 1 7 . Ufi 
L tf-31,C«(5 TO ) GO TO 6960 
6950 PRINT RT 18, URL t», INK 6,d 



?960 NEXT V LET u«q*l LET q-q* 
2*2«URL P»(ul RETURN 
ORE 



8990 RESTORE 8991 PRINT RT 18.9 
, FLRSH 1, "LEYENDO DRTRS" FOR 4 
-64245 TO 64284 RERD di POKE 4 
,dl NEXT 4 

6991 DRTR 237,86,201,62,250,237, 
71 .237 .94 ,201 

6992 DRTR 1,251,243.245.197,213. 
229,6, 10,62,235,211 ,254 , 120 .211 , 
264,237,95,211,254, 16.243,225.20 
9, 193,241 .255.251 ,237,77 

90O0 RE STORE 9001 FOR 9=64506 T 
O 65343 RERD d4 POKE 9. di NEX 

9002 DRTR 33,0.61,17.24,246.1,0, 
3. 126, 203. 47, lé2, 18, Í9.55, 126, lé 
.19.35, 11, 11, 121, 176.32,239,33,2 
4,245,34 .54 ,92,281 

9004 DRTR 14,10.33.0.64,17.0.72. 
6,10.16, 254 , 237 , 95 ,0,0, 166 , 229 , 9 
8. 107, 166, 18,225,35, 19,62,72, 188 
,40,2,24 .232, 13,32,223.201 
9006 DRTR 6.255,62.248,245,62,23 
9,211,254 ,237.9*,2Í1 , SÍ* .24 1 ,211 
,254 ,214 .8,254,0.32,236. 16,234 ,2 
01 

9010 DRTR 51,205,2,42.17.169.130 
,226,226, 130, 145.4 1,42, 146, 129,2 
25.226. 130. 169. 17,42,2,203,51 ,24 
3, 129, 153,36,24 ,0,51 ,204 
9020 DRTR 71.65,149,136,64.64.17 
9,204 ,71,65, 1 37, 148 , 84 . 72 , 129 , 13 
5 ,284 .179.64 , 84 , 1 36 , 1 49 , 65 , 7 1 , 20 
4,51 ,0,24 ,36, 153, 129, 24 6 
9030 DRTR 0,1.1,1.1,1.125,71,127 
.69,69, 125, 16, 1 , 1 ,0,255,0. 116,0. 
255.0. 109 .0.54 ,0,27,0, 109,0,255. 
0,254 . 1 , 13, 1,255, 1,177,1,217,1.1 
09. 1 . 181 . 1 ,255.0 

9040 DRTR 0.60.66.66,66,66,60,0, 
0, 124 .66 ,90 ,90.66 . 124 , 0 , 255 ,65 ,8 
5.255.0,0,0,0 

9050 DRTR 60,60,36.60,63.63.60,6 
3 , 255 , 64 , 92 . 67 . 94 , 94 , 255 , 64 , 7 , 25 
3 .253 .14 3, 223 , 255 . 255 , 255 , 255 , 0 , 
103,231 ,237,253,255,0.248 . 136, 16 
6 . 2 i 6 , 255 . 253 . 253 , 253 
9060 DRTR 255.114,216,258,250,25 
0,255 ,2 

9070 DRTR 1,2.4,9.17.32.99,164,4 
0,4 7,40,36,35.32,63. 17, 17, 17. 17. 
57,57, 19,3,3, 128.64 .32, 144 , 136,4 
, 198, 181 , 148 , 148.20.36, 196,4 ,252 
. 136 , 136 . 136 , 136 , 156 , 156 , 288 . 192 
,192 

9060 DRTR 0,0,0,0,0.0,51,50,50,1 
22 , 74 , 122 , 255 , 255 . 32 . 32 , O ,12.12, 
12,30.63, 179, 191 . 179, 179. 179, 19 i 
.255,255,0,0,0.0,0.0,0.0.56. 16. 1 
6 ,42 ,58 ,58 .255,255 ,4 .4 
Béai DRTft í4¿i ¿4e.24é«84f ¿<C ^'í 
8 . 240 . 240 . 240 . 240 ,252 , 252 . 252 ,25 
2.240.240, 15, 15, 15, 15, 15, 15. 15, 1 
5. 15. 15,63,63,63.63, 15, 15 
9100 DRTR 255,95,103,65,16,23,31 
, 7 , 255 , 199 ,255 ,255 . O .255 , 255 ,255 



,4,202,250,31 .73,73,255,34 ,34 ,34 

. Bsa . tfi> 

9120 DRTR 96.40,116,92.160.212,5 
3. 121 ,254 . ieé, 132. 72. 112.0,46.56 
. Í21 . Í58. Í4 1 .77.60.2Í9. 196. 106 
9138 DRTR 6,20,46,58,5.43,172,15 
6^127^125^33^16^14^8, 12,28. 156, 1 

9lée DÓTR 24 .56.66.90.90. 90. 90, 6 
6.O. 31 .32,79,79.32,31 .O, 66, 195.2 
4 .36,36.24 , 195,66,6,246,4 ,242,24 
2 , 4 , 246 , 0 ,90 ,90 ,90 .90 , 90 . 90 . 90 , 9 
O , 90 , 90 , 90 , 90 , 66 , 36 , 24 , O 
9170 DRTR 0,18,36,64.17,32,68,8. 
255 ,9,9.9, 255 , 53 , 53 , 53 
9180 DRTR 255,126,24,24,24,24,24 
,24 . 126 . 1 14 , 114 ,36,24 . 12, 7 .3.24 , 
24 .24 ,24 ,24 .60.255, 195. 126.76.76 
.36.24 ,46,224 , 1 92 .0.0,138,61. 14 6 
,73, 149, 126 

9190 DRTR 6,24,24,16,8,24,24,16. 
24 , 60 , 78 , 94 , 159 . 159 . 255 . 0 , 1 89 , l6 



MICROHOBBY ESPECIAL 



22 PROGRAMA 



9,60 ,6©, 24 ,66,231 ,231 
9200 DOTO 0,255,129,189,129,181, 
129,255, 1* ,23 ,4.6,28 ,40 ,80,224 , 19 
2, 127,65,93,85,93.81,65, 127 ,0,8, 
8,28,62, 115, 121 ,62 

9210 DATA 24. 24. 36, C? 36,60.36,6 
0 , 24 , 36 , 1 14 , 82 , 82 , 1 12 , 80 , 1 12 , 24 , 
36,90, 123,5,7,3,0, 102,60,24,24,4 
4, 118, 118,60 

9230 DOTO 62,8,62,65,93,73,73.12 
7,56,63,56, 120,248,248. 191 ,56,25 
5, 129, 141 , 161 213, 165, í 29. 255 
9240 ORTO 6,9,9,84,56,176,224,64 
, 24 . 36 , 126 , 129 , 189 , 189 , 129 , 126 , 0 
,0,0,255 , 129, 173, 1 29 . 255 , 0 , 24 . 24 
,36,90,255,231 , 126,0,251 ,2S1 ,251 
,0,223,223,223 
, 92S0 DATA 224,232,144,168,134,7, 
' 2,0.7.23.9.21,97.224,64,0 
9260 DOTO 8,20,20,20,20,20.20,12 
7,0,0, 184 , 191,255, 184 , 191 , 16,0 .0 
, 129 , 243 , 2S3 , 127 , 254 , 4 , 8 , 28 , 34 , 7 
3,85,73,65,255,63,65,255, 129, 181 
, 181 , 192 , 255 ,1,13. 109 , 97 , 13 , 13 , 1 
3,255 

9300 RESTORE 9301 LET p$="": FO 
R til TO 14 RERD y $ LET p$=p$* 
u$ NEXT t 

9310 DATA -025438229226171020342 
10073560716730520664110570181380 

spfcí: :o«Uh 'eíi.sa^ víp; • • - 0. .»'• • 

10 v 0 <4. 08O" • 120 . - .. .'.V • • . O. 0 
3740160710': 1 333 1 1 04 4 6 1 0:-" 05Q- PPi'F, 
67080406401105803203510177920018 

9320 OOTR 102035011171021332100 
8743 112039 126640302302 1225 166090 

'0' -.'-0' 4 10 i : < • -. 00. • • 0. 0. 4 0. 
. I' . 0 '0 4 . . 0 . ; ' 0' .. .' -.-0007660 
30.35 O 15 14F.0 32 1 7 10 :-. 123P 100749 1 1 36 
403033104125508004 31121203067776 

6869X866" 

9330 ORTR "706030597061605410012 
70.M SÍH.ir^.lOUPbPB!, 1020 14 I023O64 1 
0 0 ■ ■• 10304. 01 1 It .'0 1'. , •.■..•O031V.0 7 
0 1.40 i 14 I 0 1 'W. 70 I l.¡?,!«J¡'?b4B?iJ0 1 
034608055605 1262 10 19730 162492002 

6610 >04S I 1 [ééSdl 7 L64 70. •••41. ' 10 
026185" 

9340 DRTR "303026609065506124402 

.'0 .0180792001 16 10 104 V. 10 -2043091 1 
■ •.'.OM04 ■.. ,08204 
.•0V0-HV ' .' • O 1. 1 ■ 0 . 0 .r 7 . l'il36(. 30404 

,'■•••04 17 16 69084866 14- 0 i 10 ;<i,>HO.'f. 
6403034510 1274032 130307279454693 
00.36 (88 ' 

9350 DRTR "104045310097706168846 
•• ' 00 4 f. 10 10 16(10 >2l4r,O90S;'310 
196 10 7 1 3392 260^62060 26 -.4 10 1 3 ;■ 70.1 

L866801O i .4 00. ..o 'i --o 0 i 100 
57503153110144304226409225920051 

• )0 HV>430M04S6MO61 37104 III 10106 \U 

886196" 

9360 DRTR "605043403137208105250 

w, -04 02 1 16 7 14 920036» 7 0. 0 •., 0 1 '. • . 3 1 00 9 

'1688640 104 6- 0004)586609860408 19 
0314 74 10819301037932642166711060 
8340409650 7204028 126079300263458 

060:17202105460816 •101..--0I 

9370 DRTR "405054504136307197209 

13 3601 Ir 79 -000-»6 <030666O8055604 1 
44 10 73060 180 79 136630 10 746-03 14 17 
2070' 09 16669 100.'', 1 76 105044 106 

ir' r , nv i <».e,: i i», 7').'0040Sf,n ,o 04 
03406125709170679226385" 
9380 DRTR "804042004127804204808 

086808 1659200 1 7 6 70 70.-1O". .10046 1 1 
0113411833401 74 7922660660404 7 604 1 
94S09 1 16204 1025028 14 107930026166 
103034 10320270709075009 1O660906 
9300361 7£. 3030343102064 1003 740320 

'•0' 1. ' 0 16 16930026477 
9390 DRTR "7040304 4 704 1704500805 
6808 1 9 7 10811 39286 186604084604 165 
60804 7 f,0. -3 1 .-36 0fV 169 1 266 - '-O 04 4 'O; 
.7 0 6 3 0 8 0 " 1 .1 b 3 0 » 1 -i 74 1 0 6 1 2 '- •-. 0 O 2 6 4 O 6 
•Ot 0706650906580 '. 0740-, 1 -40 1 ¡?0S9 
30026186604065604 19 (36884' 109887 
505126930026406" 

9400 tírtTfi - 10404 7 104 186406 1364 1 1 
0544 1 1 1 959200 10670905 1 3S80308480 
> 146020.'} 7H1 J920O1 752O4 0 '4'.. 04193 

66090656091945051279200406705050 
56705160577188328562484896912651 

0305 V. 103 1 1 0--Í064 1 09 ; 6 '0 1' -'.4 9300 
264 76" 

9410 DRTR "804047305114804195209 
106302106787930020406404045404 19 
64 100474 101944071 130 1-2 • 000971 
03 136507055507 13450720751 1133932 



32649630312430704530712730719631 
1 1. 044' . • 04 1068O59.300.7f 0. 0- • 
061972031 14320911629200265" 
9420 DRTR "105057105214504 136509 
13502036737940026064968050468052 
O - 70 '0.30' -5 í 1 00-4 -; 1 0 -. F - 0 1 5 14 9 1 00 7 
2040464204 1273204 195660906580916 
40108692004 1 750308650320540804 7 1 
07124 308213940026 1 14867050805580 
8846609137409214203 18560 17779200 



607046093744 7974 7554 460692002655 
04 04 ' 60 r 04 4 106 125604 20 ^509203015 
449200267804056305 124804 185209 1 1 
■ -03065606 • 00. 6 4 0C 3?- 01 1064090' 
4409177509 11603755794 5179200546 " 
9440 DRTR 105054 105197604 135310 
13691265206054 720617658061230250 
6575920026550702570609 1 16409 13 76 
091940103492003 76103054 305127103 
17580907680915491266604045284 117 
36042044 100665101659200260705030 
4 380804670514074208174 7021070169 
20042630404550412730420360905610 
811440920591477" 

95O0 DIM p(73) FOR 0=1 TO 73 R 
ERD dat LET p(o)=dat NEXT O 
9510 DRTR 1.41,79,114,151.103,21 
8 , 259 , 298 , 332 , 372 , 4 1 1 , 454 . 486 , 52 
3 , 559 , 595 , 632 , 67 1 , 709 , 747 , 779 , 0 1 
6 , 854 , 897 , 934 , 974 , 1006 , 1045 , 1082 
, 1114, 1151 , 1185 , 1222, 1253 , 1286 . 1 
323 , 1361 , 1403 , 1444 , 1488 
9520 DRTR 1529.1564,1605,1645,16 




84, 1721 ,1756, 1795, 1832, 1870, 1912 
,1954 .1993 .2044 ,2077,2120,2162,2 
207 ,2248,2293 ,2329,2377,24 19 ,246 
1 , 2505 , 2534 , 2569 , 2607 , 2é42 , 2680 , 
2724 ,2765 

9610 RERD ZS DIM S»(14.12l LET 
f$=" FOR 1=1 TO 14 FOR 1=0*2 
TO LEN Zt STEP 14 LET f% = r%*2% 

(l) NEXT l LET S$(Z)=rf LET 

$="" NEXT z 

9620 DRTR "EEEELEEELELLLELLLLRLL 
LRLRRRL CBPMBBCDTEC 
LMPMOREORA I IN . L AAEL SCMRSNNCF AL SO 
IRHBRCETMUUERUGPEOEORRUEETJERORN 
N O FR RE RRORO ET FT 
E OE 

9710 DIM u*<8,9) LET u$(l)="UAC 
IO" LET u $ 12) ="LLENO" LET u$(3 
> *"SIN GAS" LET u»l4l=CON GAS" 
LET of (5) = -RPRGRDO" LET u$<6> 
= ENCENDIDO" LET U « (8) = F IRMRDO 

LET u$<7)="SIN FIRMA" 
9800 LET q»= " FOR 1=1 TO 17 L 
ET q»=q$* • 

NEXT l 

9850 DIM j(72) FOR w=l TO 72: L 
- - ' INT (RND#3>*1 NEXT V L 



ET 



(42) 



9900 PR INT RT 10.9," 

RRNDOMIZE U5R 64506 LET l 
$=" RLBERTO TOLEDO DIRZ 

PRESENTR 

•Lfi FUGfi GO SU 

B 9994 PRINT RT 0,0, 
9910 LET l* = "INSTRUCCIONES">" PR 
INT RT 3,9, INK O, If GO SUB 999 
5 GO SUB 9996 RRNDOMIZE USR 64 
539 

9912 IF INKCY»»"i" TMCN PRINT 
11,24. "51" FOR 4=1 TO 50 NEXT 
» GO TO 992© 

9914 IF INKE Y f = "n " TMEN PRINT RT 
11.24, "NO" FOR 4*1 TO 50 NEXT 
6: GO SUB 9997 RRNDOMIZE USR 6 

4539 RETURN 

9916 GO TO 9912 

9922 GO SUB 9997 RRNDOMIZE USR 
64539 LET lf=" TE RCR6RS DE FUG 
RR DE LR CRRCELY ERES BUSCRDO PO 
R TOOR LR POLI-CIR.ESTE PRIS YR 
NO ES SEGURO, POR LO QUE TENDRA 
S OUE MRRCMRRTERl. EXTRRNJERO PRR 
R INICIAR RLLI UNR NUEUR UIDR." 
9924 GO SUB 9994 PRINT RT 0,0,q 



TU CRSR TÓDOLO INDISPENSRBLE PR 
RR PODER CO- GER EL AUION Y DIRI 
G IRTE R TU PISO EN EL EXTRAN JE 
RO.PERO ESTO NO TE RESULTRRR NRD 
R FRCIL PUES ENCONTRRRRS MUCMRS 
DIFICULTADES. " 

9928 GO SUB 9994 PRINT RT ©,©.<* 

3936 LET L»»" UN DURO OBSTACUL 
O LO REPRE- SENTR LOS OBJETOS. N 
O TODOS TE 5ERRN UT ILES . NECES I 
TRRRS DE UNOSPRRA CONSEGUIR OTRO 
S.ROUI ENTRR EN JUEGO LR LOGICA. 
BUSCR LR UTI-LIDRD DE LOS OBJETO 
S." 

9940 GO SUB 9994 PRINT RT 0,0, O 
9946 LET l$=" 

' ' ' SUERT 

E GO SUB 9994 PRINT RT 0,0 

,<*» RETURN 

9994 GO SUB 9995 PRINT RT 1,0. 
INK O.L* GO SUB 9996 RANDOMIZE 

USR 64539 FOR R=l TO 4O0 NEXT 
A GO SUB 9997 RRNDOMIZE USR 6 
4539 RETURN 

9995 PRINT RT O .O. INK 8."— ? 

RETURN 

8998 POKE 64548,2© POKE 64553.2 
©3 POKE 64554,255 POKE 645S9.1 
82 RETURN 

9997 POKE 64548,10 POKE 64553,0 
POKE 64554, O POKE 64559,166 

RETURN 

9998 POKE 23606,24 POKE 23607,2 
45 RETURN 

9999 POKE 23600,00 POKE 23607,2 
51 RETURN 
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SISTEMA COMPLETO CON MONITOR 
EN FOSFORO VERDE, MANUAL EN 
CASTELLANO. GARANTIA OFICIAL 
AMSTRAD ESPAÑA. DISCO CON SIS- 
TEMA OPERATIVO CP/M 2.2 Y LEN- 
GUAJE DR. LOGO. DISCO CON SISTE- 
MA OPERATIVO CP/M PLUS (CP/M 
3.0) Y UTILIDADES. DISCO CON SIETE 
PROGRAMAS DE OBSEQUIO 

84.900 Pts. +i vA 

SISTEMA COMPLETO IGUAL AL ANTE- 
RIOR PERO CON MONITOR EN COLOR. 

119.900 Pts. + iva. 
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SPRITES PARA EL 

PECTRUM 

Actualmente todo ordenador personal que aparece en el mercado 
incluye la opción de sprites y la posibilidad de manejarlos desde el 
Basic. Sinclair no los incorporó en su tiempo al Spectrum, 
probablemente por no disponer de memoria para ello, pero nada 
hay que impida crear una subrutina en código máquina y una serie 
de comandos especiales para usarla. Con esta idea hemos 
desarrollado una rutina con la que tú también podrás controlar 
sprites desde tus programas Basic. 



Los subrutinas de sprites pueden 
ser más o menos completas o 
sofisticadas, pero todas ellas tie- 
nen un punto en común: sirven 
para mover fácilmente bloques gráfi- 
cos en alta resolución y de dimensio- 
nes variables (sprites) por la pantalla, 
utilizando comandos sencillos en un 
lenguaje de alto nivel, Basic en nues- 
tro caso. 

Entre las opciones que suelen ofre- 
cer están la ampliación (que permite 
hacer un sprite un número de veces 
más grande sin variar por ello su gra- 
do de definición) y la asignación de 
una prioridad a cada sprite. Asi, cuan- 
do un sprite (A) se imprime sobre otro 
(B), de mayor prioridad, sólo se pre- 
sentará en pantalla la zona de A que 
no esté sobre B, con lo que se consi- 
gue que parezca que A pasa por de- 
trás de B. Esta prioridad suele venir 
determinada por la posición del spri- 
te en un espacio tridimensional, pro- 
duciendo efectos tan impresionantes 
como los conseguidos en algunos pro- 
gramas de casas de software como Ul- 
timóte. 



LA SUBRUTINA 

Nuestra subrutina, si bien cumple 
con las condiciones básicas, es mucho 



más modesta. Te permite definir spri- 
tes con unas dimensiones máximas de 
40x40 pixels, asignarles un atributo, 
moverlos por la pantalla y detectar 
choques entre ellos. 

No hay ningún límite para el núme- 
ro de sprites que quieras definir, ex- 
cepto el impuesto por lo cantidad de 
memoria libre de que dispongas. 

El sistema de impresión utilizado es 
del tipo XOR (OVER 1). Esto elimina 
cualquier posibilidad de asignar prio- 
ridades (adiós a tus esperanzas de ha- 
cerle la competencia a Ultimóte), pe- 
ro también tiene sus compensaciones: 
hace la rutina mucho más corto y bas- 
tante más rápida, factor, este último, 
decisivo, sobre todo cuando va a ser 
usada desde el Basic, que no se dis- 
tingue precisamente por su velocidad 
de ejecución (y menos aún el sistema 
de intérprete utilizado por el Spec- 
trum). 

Si dispones de un ensamblador po- 
drás situarla en la dirección que pre- 
fieras, aunque es recomendable que 
sea por encima de la dirección 32767 
(#7FFF). Aconsejamos, igualmente, si- 
tuar el stack por encima de esta direc- 
ción con un Cleor 32999 al menos (cui- 
dado con no montarlo encima de la 
rutina). 

Si no tienes ensamblador, pero si el 
cargador de código máquina, utilíza- 



lo para situar el código objeto del lis- 
tado 1 a partir de la dirección 60000 
(en este caso no es reubiclable) y sal- 
varlo en cinta con longitud 1006. 

El programa 1 está pensado para 
aquéllos que no tienen ni ensamblador 
ni cargador, sólo es necesario trans- 
formar las líneas del listado 1 de for- 
ma similar a como se ha hecho con la 
primera y darle al RUN. 



COMANDOS 

Dispones de un total de seis coman- 
dos: 

RESET (X). Si X es cero, los datos de 
los sprites se almacenarán a continua- 
ción de la subrutina (ten esto en cuen- 
ta a la hora de reubicarla). Si es dis- 
tinta de cero, se tomará como direc- 
ción inicial de la zona de datos y to- 
dos los parámetros de los sprites se si- 
tuarán a partir de ella. Este comando 
tienes que utilizarlo siempre al comen- 
zar el programa, de otra forma el or- 
denador se quedará bloqueado cuan- 
do vayas a usar la subrutina. Basta 
con emplearlo una sola vez al inicio 
del programa, pero si lo vuelves a uti- 
lizar durante la ejecución de éste, bo- 
rrará los parámetros de todos los spri- 
tes, de manera que la situación será 
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la misma que si no hubieras definido 
nada. 

DEFINE X: (Dx, Dy, F, Att, Dir). De- 
fine el sprite X según los parámetros 
que le siguen. 

— Dx: dimensión horizontal en pi- 
xels. 

— Dy: dimensión vertical en pixels. 

— F: número de fases (gráficos) 
que componen un movimiento com- 
pleto. 

— Att: atributo (color de la tinta, 
flash y brillo) que quieres asociar al 
sprite. Notarás que no se puede defi- 
nir el papel, esto es asi porque el pa- 
pel se considera transparente siempre. 

El valor del atributo viene dado por 
la fórmula: 



ATT=128*FLASH + 64'BRIGHT + INK 
Si ATT = 0 el ordenador entenderá 
que quieres atributos transparentes, es 
decir, los atributos del sprite serán los 
que encuentre en cada momento en la 
pantalla. 

— Dir: dirección de los datos, indi- 
ca la primera dirección a partir de la 
cual está almacenado la información 
gráfica del sprite. Si el sprite tiene va- 
rias fases sólo tienes que dar la direc- 
ción del primer gráfico, el ordenador 
supone que el resto está a continua- 
ción de éste. 

Los datos tienes que introducirlos en 
memoria de una forma específica: pri- 
mero los de la primera linea del spri- 
te, seguidos por los de la segunda y 
así sucesivamente hasta acabar con 



las líneas que lo compongan (que coin- 
ciden con la dimensión de éste). 

Como esto puede resultar bastante 
aburrido, sobre todo si defines sprites 
grandes, te ofrecemos un programa 
que lo hace por ti (programa 2). Para 
utilizarlo adecuadamente ten en cuen- 
to los siguientes puntos: 

1. Ajusta siempre los gráficos a la 
esquina superior izquierda, es decir, 
no dejes nunca líneas o columnas en 
blanco arriba o a la izquierda. Si, por 
ejemplo, tienes un gráfico de 20 x 13 

3ue tiene las tres primeras líneas y las 
os primeras columnas en blanco, 
puedes redefinirlo quitando éstas y 
dando como dimensiones 1 8 x 1 0, es- 
to te supondrá tonto un ahorro de me- 
moria como de velocidad de ejecu- 
ción. 

2. Una vez ajustado, divide el grá- 
fico en bloques de 8 x 8 pixels (empe- 
zando siempre a contar por el extre- 
mo superior izquierdo) y utilízalos pa- 
ra definir los UDG del Spectrum. Si te 
salen más de 21, parte el gráfico en 
dos y trabaja con cada parte como si 
se tratara de un gráfico normal, sólo 
tienes que recordar poner la parte in- 
ferior a continuación de la superior al 
pasarla a la memoria. 

3. Modifica la linea 20 del progra- 
ma hasta que la figura completa (o 
partida si es demasiado grande) apa- 
rezca, tal como quieres definirlo, en la 
esquina izquierda de la pantalla al eje- 
cutar el programa. 

4. Dale la dirección a partir de la 
cual quieres situar los datos. Si este 
gráfico es el primero del ciclo, ésa se- 
rá la dirección que tendrás que espe- 
cificar en el comando DEFINE. Si en 
cambio no es el primero, la dirección 
tiene que ser la siguiente a la última 
del gráfico anterior. 

5. Especifica las dimensiones del 
sprite en pixels, procura no equivocar- 
te porque si cometes algún error ve- 
rás, cuando utilices la subrutina de 
sprites, que algunos gráficos aparecen 
cortados o tienen trozos de otros y ten- 
drás que volver a introducirlos en me- 
moria de nuevo. 

Con estos datos el programa alma- 
cenará el gráfico en memoria de la 
forma señalada anteriormente. Cuan- 
do acabe te indicará la primero y últi- 
ma dirección de la zona utilizada. 
Apunta la dirección final más uno por 
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si la necesitas más adelante como di- 
rección inicial de otro gráfico. 

El número que define el sprite pue- 
de ser cualquiera entre 0 y 255, pue- 
des definir, por lo tanto 256 sprites, 
pero lo más probable es que se te aca- 
be antes la memoria. 

Se generará un error 1 si intentas 
definir un sprite que ya haya sido de- 
finido. 

IMPRIME X: (Cx, Cy, F). Imprime el 
sprite X en el punto de coordenadas 
Cx y Cy en la fase indicada. 

La coordenado horizontal puede to- 
mar valores entre 0 y 255 y la vertical 
entre —16 y 175. Los valores negati- 
vos indican que quieres imprimir por 
debajo de la línea 0. Tienes, en con- 
secuencia, acceso a las dos últimas lí- 
neas. 

Se producirá un erro 3 si con las 
coordenadas dadas y la dimensión del 
sprite, éste no cabe completamente en 
la pantalla. 

La fase puede oscilar entre cero y el 
número máximo de fases menos uno, 
siendo cero la primera fase, uno la se- 
gunda, ... 

BORRA X. No necesita parámetros. 
Borra el sprite X y restaura los atribu- 
tos originales. 

Dará error 5 si se pretende borrar 
un sprite que no ha sido imprimido. 

MUEVE X: (Cx, Cy). Borra el sprite 
X de su posición actual y lo imprime en 
las nuevas coordenadas Cx y Cy en la 
siguiente fase (la fase vuelve a cero 
cuando se alcanza el valor máximo). 

TEST X: (SP1, SP2, ...). Comprueba 
si el sprite X está en contacto con los 
sprites SP1 , SP2, ... Puedes colocar to- 
dos los sprites que quieras, siempre 
que hayan sido definidos y estén im- 
presos en pantalla. Si en algún mo- 
mento haces referencia a un sprite no 
definido, el programa se detendrá con 
un error 0. 

El valor que devuelve es el número 
de sprites sobre los que está (sin espe- 
cificar cuáles) o un cero si no está so- 
bre ninguno, es suficiente con que ten- 
gan un pixel en común para que los 
considere en contacto. 

Este valor es asignado a la variable 
del último LET. Para evitar problemas 
asegúrate de que la instrucción con la 
que llamas a la subrutina tenga, en es- 
te caso, la forma LET I = USR dirección, 



donde I es la variable con la que quie- 
res detectar el choque. 

Si en algún momento introduces un 
número fuera del rango establecido 
en cada caso, se producirá un error 
3. 



SINTAXIS 



La forma base USR 60000: REM 
tiene que aparecer siempre, seguida 
por el texto del comando que quieres 
ejecutar (en mayúsculas) y de los pa- 
rámetros que necesite. Estos pueden 
venir expresados por números en de- 
cimal, en hexadecimal (precedidos por 
tt) o bien a través de variables numé- 
ricas. No se aceptan ni expresiones ni 
elementos de matrices (no son válidas 
3*X— 2 ó A(2,3)). Si se utiliza alguna 
variable no definida, el programa se 
parará con un error 4. 

Puedes encadenar comandos sin ne- 
cesidad de volver a utilizar USR usan- 
do como separador el punto y como. 
Por ejemplo: 

RESET (0); DEFINE 2: (...); IMPRIME 
2: (...) 

es perfectamente válida y además es 
más rápida. 

Si pones más parámetros de los ne- 
cesarios (o menos), olvidas algún se- 
parador, das un comando erróneo o 
incompleto o, en general, no cumples 
algunas de las anteriores reglas de sin- 
taxis, conseguirás un error 2. 

Cuando se produce un error se de- 
tiene la ejecución del programa y en 
la parte inferior de la pantalla apare- 
ce un número, que indica el tipo de 
error, seguido por una coma y la linea 
e instrucción donde ha sido detectado. 
El sistema de numeración es el normal 
del Spectrum, pero aquí se sigue con- 
tando después de la instrucción USR. 
Así, si la instrucción de llamada era la 
sexta de la línea, el primer comando 
se considera la séptima instrucción, el 
segundo, la octava, etc. Esto te per- 
mitirá localizar con mayor precisión el 
error. 

Para llamar a la subrutina puedes 
utilizar cualquier cosa que acepte la 
forma base anterior, pues no tendrá 



ningún efecto, de forma que si haces 
un PRINT USR no se imprimirá nada; 
si usas un LET, la variable no tomará 
ningún valor distinto del que tenía (ex- 
cepto si uno de los comandos es TEST) 
y RANDOMIZE no alterará la secuen- 
cia de números aleatorios. De cual- 
quier manera, las instrucciones más re- 
comendables, debido únicamente a 
que son un poco más rápidas, son 
PRINT y RANDOMIZE. Utiliza éstas 
siempre que te sea posible. 

Recuerda, por úlitmo, que la instruc- 
ción de llamada, junto con los coman- 
dos de control de los sprites, tiene que 
ser, bien la única instrucción de una lí- 
nea o bien la última de ésta. Esto se 
debe a que el intérprete del Spectrum 
ignorará todas las instrucciones Basic 
que coloques después de ellos. 



MODIFICACIONES 
Y MEJORAS 



Evidentemente las posibles variacio- 
nes se te irán ocurriendo a medida que 
uses la rutina y necesites ajustaría a tus 
necesidades. De cualquier manera, 
aquí tienes algunas ideas. 

Variar las dimensiones máximas. 
Puedes hacerlo siempre que el núme- 
ro total de bytes no exceda de 256 (el 
número real de bytes que ocupa ca- 
da gráfico del sprite es Dy* (1 +INT 
((Dx-l)/8)). 

Si quieres sprites más grandes, ten- 
drás que variar las lineas 2650 a 2700 
y utilizar instrucciones que trabajen 
con datos mayores de 255. 

Recuerda ajustar la longitud del buf- 
fer cada vez que cambies las dimen- 
siones máximas. 

Otra posibilidad interesante puede 
ser introducir otros cuatro parámetros 
en el comando DEFINE. Dos de ellos 
determinarán un punto del sprite y los 
otros dos las dimensiones de un rec- 
tángulo interior a él, de tal formo que 
la subrutina de choque detecte cuán- 
do están en contacto estas zonas del 
sprite y no todo el sprite. 

Tanto en este caso como en el siste- 
ma utilizado normalmente, se detecta 
un choque cuando los rectángulos que 
definen el sprite están en contacto, in- 
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dependientemente de que los gráficos 
se toquen o no. 

La rutina de impresión en si ocupa 
poco más de 150 bytes (PRINT e 
INCH) y no hay problema para que 
la utilices en tus programas en código 
máquina, siempre que le proporciones 
los datos que necesite en cada mo- 
mento. 

El campo de coda sprite tiene los pa- 
rámetros distribuidos de la siguiente 
forma: 

IY + 00 Longitud del campo 
IY + 01 Número del sprite 
IY f 02/03 Coordenadas x/y en 
pixels 

IY + 04/05 Dimensiones x/y en 
pixels 

IY + 06&0 7 Dirección del primer 
gráfico 

IY | 08&09Longitud de codo 
gráfico 

IY+ 10 Fase o gráfico actual 
IY+11 Número máximo de 
fases 

IY I 12 Atributo asociado al 
sprite 

IY + 13 Flaq de impresión 

Seguida por la memoria suficiente 
para almacenar temporalmente los 
atributos de la zona de pantalla sobre 
la que se imprime el sprite. Si el sprite 
tiene atributos transparentes no se re- 
serva ninguna memoria. 



UN EJEMPLO 
PARA ACABAR 

¿Qué mejor que un ejemplo para 
ver de una forma práctica todo lo an- 
terior? Para ello te ofrecemos el pro- 
grama 3. Este divide la pantalla en tres 
partes y mueve simultáneamente dis- 
tintos elementos en cada una de ellas. 
Encontrarás camiones, una pelota de 
tenis, autos y un típico comecocos per- 
siguiendo a un típico fantasma. Fíjate 
sobre todo en el listado y en los peque- 
ños trucos que se utilizan (el uso de la 
tinta y el papel negro en la parte cen- 
tral, por ejemplo) y empléalos en tus 
propios programas. No olvides asegu- 
rarte que tienes la subrutina de spri- 
tes en memoria antes de ejecutarlo. 

Y Feliz subrutina. 



CUADRO RESUMEN 



« 



RESET (X). Inicia el área de datos. 
DEFINE X: (Dx, Dy, F, Att, Dir). Define 
el sprite X: 

— Dx: dimensión x 

— Dy: dimensión y 

— F: número de fases 

— Att: atributo del sprite 

— Dir: dirección de los gráficos 
IMPRIME X: (Cx, Cy, Fase). Imprime 
el sprite X en las coordenadas Cx y Cy 

I en la fase indicada. 

BORRA X. Borra el sprite X. 

MUEVE X: (Cx, Cy). Borra el sprite X 
I y lo imprime en la posición Cx y Cy en 
1 la siguiente fase. 

TESTX:(SP1,SP2, ...). Comprueba si el 
^1 sprite X está en contacto con alguno de 
I los sprites que se enumeran. 

ERROR 0. Sprite no definido. 
ERROR I. Sprite ya definido. 
ERROR 2. Error de sintaxis. 
ERROR 3. Número fuera de rango. 
ERROR 4. Variable no definido. 
ERROR 5. Sprite no impreso. 
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1 REM CRRGRDOR DE GRAFICO* 
10 BORDER 8 PRPER 8 INK 7 C 

LERR 29999 POKE 23658.8 

20 PRINT RT 0,0. "ABCD ,RT 

"EFCM",RT 2,«,"IJKL",flT 3,0. HNO 

P 38 INPUT DIRECCION ? " . K LCT 

^Jo'lNPUT "DIMENSION X J ' 
DIMENSION Y •> " , DY LET DX=1»INT 
(IDX-l>/6> XF DX>S OR DY>40 TM 

EN GO TO 48 „ 

50 FOR R38 TO DY-1 LET D.1638 
4.256tINT (R-84INT ( R /8 ) > «32 t INT 

: ZONfi OCUPR 



EXT R 

118 STOP 
9999 SRUE 
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DUMP: óttt 
DIR: 

N.° BYTES: 1.010 

1 F31 1D9EDC0688RE7FEER 
8 M3B3M78( 3C384 79C 1 1 
FPLCCSf 7C:O3LD;)02422 

¿ • : •- .» ív>. : 4. i t c-r.f 

t- 5605 79F rP4C «C C' 3DEC-CD 

6 ?SED3ee33E88D779FE86 

7 ceE7FE28C83E82D7CD3D 

8 EDCD2SED38633E81D7FD 

9 70eiCD9DE«FDCB8DC6CD 
IB 3DEDR72884FE2938033E 

11 83D7FD7704CD3DEDR728 

12 F4FE,>930F0FD770SCD3O 

13 CDR726C 7FD 7 7BBCD3DE D 

14 E6C7FD77eC28e9CDB3EC 

15 ece4RF811BFDC6eeF077 

16 00SF 1600FDE5E1 1936FF 

17 62FD7E84CDCEED6FFOSe 

18 83CDBlEDFD75eBFD74*9 

19 CD4CEDFD73e6FD7287C9 
28 CD37EBCDCAeBFD7E8«3C 

21 FOSE 88 388 1RFFD77BR 18 

22 292181EEE3FDCB8D4628 

23 833EeSD7CD12EC»FCO«« 

24 CCFDCBBDC6DFC9CDCREB 

25 CD3DEDFDBE 8BD2C3EAFO 

26 778*»FDCBeD66CD12EC37 

27 C 3RREC8E88FDE5DDE 1CD 

28 3DEDCD25EDD296eRDOBe 

29 81282DFDCBe0462*27FD 
38 7E82DD96e23ee630FDB6 

31 84iee3DDBE843ei4FD7E 

32 e3DD96e33e863DDD668S 

33 1883FD6E6538016COFFE 

34 292eC886eeCD2B2DC3FF 

35 2RCD9DERCD4CBD7RB328 

36 831118CFED534eeE3CFF 

37 12C9CD3DEDF08684DRC3 

38 ERDSC03DED2887FE11D2 

39 C3ERED44C6ieFEC83erS 
48 3CFD8Ee538E43DFD77B3 
4 1 D1F07362C9FD7E83CDCE 

42 ED57FD7E82CDCEED5FFD 

43 7E85CDCEeD47FD7E84CD 

44 CEE04FC9FD6E86FD6687 

45 FOSE68FD5689FD7E8R4 7 

46 R728831918FDE5DDE1FD 

47 46B3FD7Ee24FE6e7573E 

48 BFCDRC22E5E52156EEFD 

49 46e5FD7E84COCeCDSF4B 
58 0O7EeeDD237723e02eF6 

51 7RR728e336ee23ieEC28 

52 164R1CFD4605RF8310FD 

53 2158Ee47R7CBlE231BFB 

54 0D20F 3FD46BS4BFDE5FD 

55 213R5CFB76F3FDE 1 1 150 

teni b( sior.e - ?; r i :>oo 

~ 28F8C1E1CD98EC18EFE1 
C924 7CE6e7Ce7DC62B6F 
D87CD68867C9e8FD7EeC 

R7C67ce^ef ereeesresB 

67F0E5DDE 1 1 ieE88DD19 
CDF5EBFD7Ee3E6e7FEe7 
2eei84FD7Ee2E6872eei 

ec i6ee3E2e9i5FCsesDC 

f 0ECD4f r-tr? 3C-C 230020 
F3C11910FEC9087EDD7 7 
88E 6 38F DB68C 7737C9B8 
DD7EBe77C91 UBEEeEee 
E51RR72815BE20042313 
13f 50 C pr ifiilfi??efÜJft 
r EFFE 1C818C6D137C9F0 
^R 4 E E E 4 7 1 686F D7ge#FC 
FFC85FFO7E01B83*7C8FD 
1918EFE5C5CD4CED7RR7 
C2C3ERB4C 1E 1 78C966FF 

E7FE202eeae4E7ece«rE 

232885eElBE7 182FCDlB 
^D382M( D80rCD?fllEflf C 

f r: z : 3psc c : t . « - <pp 

3L »4Í •( O» II «P3CDB4 3: 
COO?ÍT>rRC3ER5859FOE 1 
Pt.F r CSB4C9C5CC-BSEODO 

m :ff H p f . o o f, o 6 f 5 p r 9 : •:■ p e 

il ■ DBltD09D«C 3F«EÍ>E 7 
E lCDB8ED3BFeEBC 1C9CD 
~ O0O0C >C .«IRCD1B2D38 
03D6 38C9FE4 1D8FE4 73F 
D8CB6137C8D63 7C9R728 
863D1F1F1FE61F3CC9FD 
213R5CF5CD6E8DF 1 1 1F4 



1 



09CD880R212O21223B5C 
r- J0O71 U913ED?B^',í 

Ft 3BC«bCtM» D2 1 3«5C : : 
F 4 09CDB00R 1 183 1BFE0O 
?BDCE 7 iaF0444.5-lt-4.94F 
45005245534554 0054 4 S 
5354O04D55455645O04 2 
4F52S24 100494DS0S249 
4D4500FFR4ERB5EB67EB 
1EEB33EB4DEB0000O088 



1776 

!Ü5 

666 

1662 

993 

1476 

129B 

1561 

925 

1384 

1478 

1561 

1386 

1173 

1158 

1567 

1388 

1467 

1586 

1892 

1119 

1294 

1969 

1649 

1246 

1748 

1782 

949 

1883 

893 

852 

1813 

1814 

1489 

1236 

1526 

14 78 

1687 

1226 

1573 

1781 

1436 

1454 

1163 

1432 

919 

1664 

1276 

1846 

713 

1627 

1134 

1426 

1378 

1264 

1774 

1256 

126S 

1183 

1388 

1565 

784 

793 

1S13 

1390 

1116 

963 

763 

614 

1986 

1684 

1622 

1521 

1630 

1877 

636 

1383 

1139 

1349 

1786 

1787 

689 

1614 

1973 

1382 

1389 

1448 

935 

1258 

635 

1883 

NM 

1318 



693 
1553 
863 



J 
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28 CODIGO MAQUINA 



GENS SPRITE COMENTADO 



11 


ORS 4IIII 




28 SPRIU 0! ¡Si» i»trrr»i( 


lOart 


31 


ID «.ERROR 




41 


CAll CANSIA 


¡Hormón »or lt * rrr 


58 


RST 121 


;Ct>9» ti sigoiratr (in< 


M 


CP BEA 


¡Es ROI 1 


71 


JR W.ERR2 




U BíT? 


ID A.iSUÍPPC' 


¡Ucrrarott rl 


1 


INC A 


¡cootidor 4» 


IM 


LO (SV»ftt,A 


Iteikitfimi 


lll 


II M.tnsB 




IM 


PUS* M 






SST 121 


¡A»M>4 »• («TMtrr 


141 




¡Tiraa «ar s*r * 


1» 


Jt NC,(tt2 




148 


10 (CHOCO»,* 




171 


10 8,111 




; i 


10 HL.DIRECC 


¡14 «irMOOl btSI 


Itl 


ABO W..K 




280 


l» C,<«> 




ra 


INC * 


|tl dirncio» 


778 


10 »,<*> 




73* 


PUS* « 




241 


10 A,C 


;Cat»n»6< rl ©4'sat 


2sb 


cp M4 




..*< 


REI C 


':»*?» DCltNC , IfST 


271 


N . EMM 


¡Cotj* fl «narro dr SK't 




CALI lUSCA 


¡Esti dMiaido ! 


2»! 


J« C.SP2 




3tl EM» 


LO A, MI 




311 


RST lll 




221 ; 






334 • SP8ITE NO «FINIDO • 




341 ; 






351 5*? 


LO A,C 




341 


CP 118 


¡Es rl dr BORRA 1 


371 


«n 2 




■ 1 -v. 


ÍST 121 


¡5» Sattl '! 


m 


CP 121 




m 


rey : 


)l» s.ojr '(' 


4ii m: 


LD A,t»2 




421 


RST lll 




431 ; 






44i i m 


31 « SINTAXIS • 




45» ; 






M HfM NU NH 


¡Coqr rl »uarro dr van 


471 


CALL BUSCA 


¡No U4M q«f 


i:i 


JR NC.Ofl 


¡rstir dH.«>do 


m 


LO A.tl! 




588 


RST lll 




521 - SMMTE ■ «UNIDO i 




531 ; 






541 Jfl 


10 <IY«BI>,I 


¡ItKII »' «narro 0> t» 


5» 


CALI SP3 


¡Coatrtrba IWrtlÉh 


541 


sn i.ut.131 


;S»ntr »e liaría id» 


521 


CALL COCEA 


¡Coy diamio* • 


SM 


ANO A 




5»! 


ji :,e»3 




:!» 


Ct> 17» 


¡a. atror 4* 4| 


411 


J« C,0f2 




421 tm 


LO A, 113 




«31 


»ST lll 




««• ; 






451 • «ICIO FUERA «ANCO 1 




471 0Í2 


LO <)Ti|4),A 


llalcia d>arasioa • 


4M 


CALI COSA 


¡Ceor a.am,«a t 


M 


ANO A 




7M 


JR 2, {«13 




711 


Cf I2t 





721 


jl NC,ERR3 




1438 


JP 


ATTR 


¡Poar rl «tribote 


731 


10 (IY«B5),A 


•Imcu dia»»iio« I 


1448 ¡ 








741 


CALL COCEA 


;Coo» «awro d» 1h*s 


89JO M .: 


C.S88 


;lia«i< rl mdt(4dor 


751 


ANO A 




144» 


K 1 


IV 


;Co»i« lt dirrtcio» 


741 


Jt 2,EM)3 




147» 


PtJ 


IX 


¡btsr r» li 


77» 


10 <1T«U),A 




1488 CM] 


■J-. 


COCEA 


¡Cao* saritr t ceaar* 


7M 


CALI :*fA 


;Co9» rl «tríbulo 


I4t8 


CALL BUSCA 


¡Kt dr rsttr d»«.»-dc 


?♦! 


ANO K7 


;No s» Mfiti otoil 


1581 




NC.ERI8 




MI 


LO <IY«I2>,A 


Ikicil 4tribit» 


1518 




'IX<8I> 




«II 


j» :,04x 


¡Sil tí si H erro 


1528 


M 


2.CH4 




171 


cali m¡ 


¡Coy itraaitros 


1538 


m 


I,<1Y«I3) 


'■',],''. t H t M 


331 


INC C 




1548 


M 


N2.CN4 




841 


INC 1 


¡dos diatisioaos 


1558 


1» 


A,(1Y<»7> 


'cóordrt'da'i 


851 


XV A 




1548 


M 


(IX.I2) 


•C ' ' 


841 Of 3 


A00 A,C 


¡C<4Ct«4 l< oarricioo 


157» 


■ 


NC.CK? 


til] 


rt 


0JN2 Df3 


¡A=Í«C 


158» 


■a: 




• r 




AOO A, ME 


¡Sou U loojitiid aimat 


I5« 




A,(1Y<»4) 




Itl 


10 <IY«M>,A 


llRlCtl loifitid 


1488 


JR 


00 




ni 


LO M 




1418 00 


V 


<IX<»4) 


¡Siojtr tdrUütr 


tu 


LO 0,888 




1428 CM 


1 


NC.CH4 




♦21 


PUSX IT 




1438 


11 


A,(IY«83) 


¡Sr mi lll rt 


m 


POP * 




1448 




<IX*B3> 




«4| 


ACO *,« 


¡Pom rl ndicidor dt 


1458 


■ 


NC.CH4 


¡otrt lt coordNtdl y 


♦51 


LO <ML>.8« 


|4il dr dttos 


1448 


m 




M 


10 11.0 


¡Liasit H 


1478 


m 






♦71 


LO A,(ir.84) 




14tt 


• 


00 




♦81 


CALI INT8 


¡rl «sarro dr ortts 


!4« CH4 




<IY.85) 




n» 


10 l¿ 


¡«<r ocofi 


1788 CH5 


■ 


NC.CH4 
C 


¡Sr loerrarrtt C }V 


Hl 


10 E.UY.BS) 


¡Cidt 0/4<lC0 


1718 


H 




lili 


CALI NAT 


¡drl s*ntr 


1778 CH4 


ÍST 


810 




1121 


LO <1Y«M>,L 


¡Pjsj r$r vilor «1 


1738 




82* 


¡Es M ')' 7 


1131 


10 <|Y.Bt>,N 


ItTM dr Mrawtros 


1748 


JR 


W.CMI 


¡Coatnoi listo «rr lt 


1141 


CALL TKOE 


¡Coar U dirrccion dr 


175» 


LO 


8,111 




1851 


LO <IY.04>,E 




174» 


CALI SUBC 


Písi Bt «1 calcvlaOor 


1841 


LO (IY.87),0 




177» 


» 


A' 


, ion • i » i 


1878 


rey ;v»«i.» t «rrs 


8 


I7S8 ¡ 








1888 ; 






\m «sr 


■AL. 


M 


¡Catarvrbt sinttnv 


tl«l WCVE 


I . BJMM 


•íorr» (1 4pr ,, f 


1(8» 




TKOE 


¡Coor rl marro 


¡188 


CALI COOíD 


¡Coo^sus coordrnidis 


1811 


10 


A,0 




1118 


LO A,(|Y.I8» 


¡Incrrarntt rl 


1828 


BJ 


E 


ídirrmoo'st 


1178 


INC * 


¡coAtidor dr fisrs 


1838 


JR 


W.REOf 




1138 


0» <1Y«||> 




1841 


LO 


OE.OIPSP 




1148 


J» C.P4V2 


¡sr ilctni) rl aaxiao 


1858 IE0F 


10 


<0ATSP),OE 




IISS 






1848 


LO 


A.IPf 


¡Coloci rl ladicidor 


1141 NU2 


LO (IYOO.A 




:8?i 


10 


<OE>,A 




1171 


J« POtO 


¡r ia»nat rl sk'«» 


IB88 


«n 






1188 | 






I8t8 ¡ 








]!♦! BORRA 


LO MI ,1782 




¡♦88 COORO 


CALI COCEA 


¡U coordrmdi i 


1288 


EX <S»),NL 


¡dr rrtorno 


1818 


88J 


A,(IY.84) 




.1 ÍOPPA 


tan ».<iym3) 


¡Est4 rl santr lainaido 


MI CORO 


Jf 


C.ERR3 


;s»ri<r coaolrto 


1728 


Jt 2.BM2 


¡Coat.t.t si la rst* 


1*38 


PUSH D( 


¡Cairdl i 


ra 


10 A.885 




1848 


CALI COCEA 


¡Coor !< coordroidt i 


1248 


«SI 818 




1*58 


1 


2, COR? 


¡Salta si rs lositm 


1258 ; 






lfM 


:t 


lll 


¡No sr .: r 'i- iHwrot 


;.( . |4J INM , 




■ ♦78 ORI 




NC.ERR3 


M'vts dr -14 


1278 ; 






ItM 


m 






1788 88*7 


CALI PI1NT 


¡Borri rl s»ntr 


im C0R7 




A, lll 


^josti li coordroMi 


17t8 






2*81 


a 


n 




1388 


CALI Ani 


¡ItstMrt «tributos 


2818 


:• 


NC.CDRI 


i, :• 




ir •. 


¡Sontr •» tatriaido 


ra 


K 


A 




ra 


Kl II» 




2838 


Cf 


(IY«85) 


¡Orbr tibrr 


: 


«ft 




2841 


JI 


:.::¡t 


¡todo «i santr 


1348 ; 






2858 


Hf 


A 




1358 imi 


1 CALL CCO» 


¡Cay l«s (oordrtidis 


2848 


ti 


(IY«83)>> 


líatela, (oordroidi t 


1348 


CALL COSCA 




2878 


m 


OE 




1378 


Cf <IY01) 




2888 




<IY«83).E 


¡laica coordroidi ■ 


1388 


JP NC.EM3 


¡Error si ao rs itr» tiblr 


2818 


RO 






I3tl 


10 <IY«ll)^ 


■latCia ll (4i* M curso 


2188 ; 








1488 POA.0 


RES I,(1Y*I3> 


¡Sontr ro outtll* 


2118 PARAN 


(I 


A,(IY«I3» 




141» 


CALL PRINI 


¡lo ia»riar 


2128 




IN7B 


¡Coanrrtr « íilis/ce 


<;i 


SCf ;t»rr 4 «ai 






10 


M 


;/ li fuirdl r» 0 
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21«l 


u 


MINO 




















2151 


CAU 


M 








¡Nll( ll 104 dllO% 0>l 


3471 


OJI 








■• 


10 


E.A 


■Coorotniao i i f 


! 


¡* 


;b»«ir co* lo 


¡2¡ 










II 


A.(IY.|5> 




ni* 


0 <l*i-A 


¡too oír 11 poolini 










21N 


MU 


M 

M 






i Ñr L 




3714 


l¡ 


A.díiOl» 


;Rntiblic» loi 


21*1 


II 


-Oimohoo < 0 








3711 




<»)^ 


¡ilribotot «r 19100101 


22H 


II 


A.UYM4) 






Dft c 










»l 


CAU INT* 










37H ; 








2221 


u 


c.a 


-Oiawotioo i i C 


7*01 


pop oc 




3741 rw 




rioi* 70 






22JI 


m 






7**l 


w * 


Cilcoli li «ificcioo 






¡Oiítfl 1 coro 










3*11 


CAU INC* 


•6> lí omi lint 














10 


1,i1y»I4i 






















10 


H,<IY.|7) 














* 


¡Soltó SI ll COMOO» 




2271 


II 


E.OY'IO 


;y i K m leooitia 








3 ^ 


* 


...... 


¡•i corrido 






II 


munm 




3*41 






38*1 








27*1 


10 


A.ClY.ll) 




















2JN 


II 


M 






















«no 






üu 






3*3* 


s 










:t 


2,**2 


•ll prMoiri 




B ? 






* 


OI 






2JM ni 


M 




•D» oír» iw-ao 


I ••! 
















234» 


OJO 


w 










3*41 










2351 P*2 


*u» * 






10 L¿ 




3(71 C02 


10 


N 




23ot 




II 




¡2 


fT i N 




H 






¡Oowi il «mi 




2371 


II 




Coor»MO«0 r 








38*1 




* 


¡O» coooooo 




23» 


10 


A,<|T.|?I 


•Coor»>«m > 




III 




3*11 


* 








23*1 


10 


c* 




3151 














<H 


M 


N7 


¡roto t 0 »l 


! 






3*2* 
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PROGRAMA 3 



1 RCM PROGROMR EJEMPLO 
10 CO TO 5800 

iee lct xi.xifSTx iw xki or x 

1>24 1 THCN Ltrr STX ■ -5TX OUT 25* 

, i bkcp .ea,e go to íee 

11* LCT Yl.YlfSTY IF Vlc67 OR 
YDIM TMEN LET STY.-STY OUT 25 
4,2 BEEP .ei,2e CO TO ne 

120 RRNOOHIZE USR 60000 REM MU 
EUE 1 (X1.Y1I REM NO PONER ROUI 

INSTRUCCIONES BRSIC 

13e LCT X2-X2*3 IF X2>2«1 TMEN 
LCT X2.1 

140 LCT X3.X3+3 IF X3>243 TMCN 
LCT X3.1 

i5e PRiNT usr seeee rem mueue 

2 <X2,Y2) , MUEUE 3 (X3.Y3) 
ISO LCT X4.X4-2 IF X4<e TMEN L 

ET X4.815 

170 LCT XSaXS-2 IF X5c0 TMEN L 

ET X5.21S 

180 print usr eeeee rem mueue 

A (X4.Y4) .MUEUE 5 <X5,YS) 

190 GO TO 100 
5000 BORDER 0 PRPER 0 INK 7 C 
LS CO SUB 9000 REM GRRFICOS 
5010 LET Xl«127 LET Y1*1O0 LCT 

5TK.4.3I (RND- .51 LCT STYa40«l 
RNO-.SI 

5020 LCT X20 LCT Y2.33 LCT X3 
.37 LCT Y3»Y8 

803* LCT X4.6B LCT XS'135 LET 

xs.aee let Y4.47 lct ys.y4 lc 

T Y6.YS 

— 14* go sub seee rem define spr 



I CO SUB 7O00 

i go to íee 

» CLS PRINT P.T 

1 CJCMPLO 

I R.3 TO 14 



REM PRNTALLR 



?XT P ! 



PRINT DT 1,1 



W -«39,0 UHHU «,-151 UVCH 1 f» 

LOT e,32 DRRU 255 , 0 DRRU 0.23 

ORPU -255,0 DRRU 0,-23 OUER 0 
7020 PRINT INK e, PRPER e, RT 16, 
0;" INK 7, PRPER ÍJ" 

", PRPER 2, " ", PRPER 

i¡ " ', ink e, prper e. " 

7050 PRINT USR 60000 REM IMPRIM 
E 1 (XI ,Y1, OI , IMPRIME 2 (X2,Y2,0 

I, IMPRIME 3 <X3 ,Y3, O) , IMPRIME 4 
CX4.Y4, O) , IMPRIME 5 CXS,Y5»«) 

7 100 RETURN 

0000 PRINT USR 60000 REM RESET 
(O), DEFINE 1 (12,12,4,70,90191) 
RCM DEFINE PCLOTR 

se io print usr seeee rem define 

2 ( 13 , 13 ,4 ,70,500001 , DEFINE 3 ( 

II, 13, 2, 65,50104) REM DEFINE CO 
MECOCOS Y FRNTRSMR 

Bese FOR R.4 TO S PRINT USR 600 
00 REM DEFINE R (40,7.1,0,50156 
) REM DEFINE CRMION-COCME 
0030 NEXT R 
8040 RETURN 

9000 LET SUM.O FOR R «50000 TO 5 
0286 RERD R LET SUM«SUM»R POK 
E R.R NEXT R RERD R IF R < > SUM 
TMCN PRINT "ERROR EN ORTOS" ST 



9110 DRT« 15,128,63,224,115,240, 
115 , 240 ,255 , 248 ,255 , 248 , 252 ,0 , 25 
5,248.255,248. 127,240, 127,240.63 
,224 , Í5, 128 

9120 DRTR 15.128,63.224.115.240, 



llS.24e,2Ss.248,25S. 192. 252. O. 25 
5. 192.255,248, 127,240, 127. 240. 63 
.224 . Í5, 128 

9130 DRTR 15,128.63.224,115.240, 
1 15 . 248 .255 . 224 , 255 .0 . 252 . O . 255 . 
0 . 255,224 . 127,248, 127,240,63.224 
,15,128 

9140 DRTR 15. 128. 63, 224,115, 240, 
115. 248 , 255 . 192 , 254 . 0 . 252 , 0 , 254 , 
0,255. 128 . 127 ,224 , 127 , 248 , 63 , 224 



■ . | «: jo , 

9,96,34 ,32 
9170 DRTR 14 ,e, 63. 128, 127, 192, 10 
O , 192 . 237 , 224 . 255 , 224 . 255 . 224 . 24 
1 , 224 .238.224,255. 224 . 868 , 884 , 88 
1 . 192, 136, 128 

9Í80 REM ORTOS CRMINON -COCME 

9190 DRTR 23.254,0.3.192.247,254 

,0,4 , 160, 151 .254,0.24 . 144 .24 7 .25 

4 .0 Í27, 248,24 7.254.0.255,248,25 

5, 255, O. 48, 96, 9*. 24 .0.0. O 

9200 REM ORTOS PELOTR 

9210 DRTR 15,0,63,192,127.224.12 



. 224. . U-3 

,840 , 185 ,224 , 126 , 32 , és , 192 , 15 , O 
9830 DRTR 11,0.61,192.126.224.12 
6,224 .254 ,240.253.240,251.240,24 
7 , 846 ,119, 884 , 1 19 , 884 , 59 , 192 ,11, 

9240 DRTR 15.0.63,192.127,192,12 
7 , 160 , 255 , 1 7* , 252 , 1 12 . 227 . 240 . 22 

92Í0 e 6R?R ¿ !Í9ÉS' a¿4 ' 6á ' 19á ' 15 '» 
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Como ya sabéis, una 
de las «facultades» del 
Spectrum es la de 
poder imprimir 
gráficos en pantallas. 
De hecho, siempre 
trabaja en modo 
gráfico aunque lo que 
aparezca en pantalla 

tenga formato de 
texto. En este artículo 
vamos a verlo 
detalladamente. 



El problema empie- 
za a la hora de 
realizar gráficos 
para juegos o di- 
bujos complejos 
que requieran un gran de- 
talle. Es en esos momentos 
cuando contemplamos los 
famosos UDG con lógica y 
desesperación. ¿Cuál es la 
solución REAL?: adquirir un 
programa especializado en 

Sráficos. Pero como nunca 
ueve a gusto de todos re- 
sulta que al cabo de un 
tiempo (incluso el primer 
día) se echan en falta cier- 
tas funciones que facilitarían 



grama de archivo y volca- 
do de gráficos, lo hemos 
adaptado especialmente de 
forma que los que ya lo po- 
seen dispongan a partir de 
ahora de una herramienta 
muy potente y, aunque pro- 
blemas de espacio y tiempo 
nos han impedido añadirle 
más opciones, el resultado 
final asombrará a la mayo- 
ría y dejará más que satis- 
fechos a los exigentes. 
Aquéllos que no posean el 
programa SUPERGRAFI- 
COb (Melbourne Draw) 
simplemente han de seguir 
las indicaciones que comen- 



en detalle, y aparecerá en 
pantalla como sigue: 

Para seleccionar cada op- 
ción basta pulsar la tecla 
que corresponde a cada le- 
tra. Las distintas opciones 
operan del siguiente modo: 

M.— Al pulsar la tecla 
«M» aparecerá el menú de 
ayuda. Al final de la ejecu- 
ción de cada una de las op- 
ciones seleccionadas (ex- 
cepto MENU) se hace un 
volcado de la pantalla de 
trabajo quedando el pro- 
grama a la espera de uno 
nueva opción. Si se desea 
volver entonces al BASIC 





el tedioso y complejo proce- 
so de desarrollo de figuras, 
sobre todo en el caso de 
gráficos de animación. Una 
solución suele ser esperar a 
que salga una nueva ver- 
sión que satisfaga nuestras 
necesidades, pero ante el 
precio unas veces y el her- 
metismo de manejo otras, 
resulta que al final solemos 
hacer aquello de «más vale 
viejo conocido...». 

Esto ocurre, por ejemplo, 
con el excelente programa 
SUPERGRAFICOS (Mel- 
bourne Draw) el cual fue un 
programa de impacto en su 
día pero poco a poco está 
siendo desplazado por nue- 
vos y más potentes progra- 
mas. 

Hemos de reconocer que 
como tenemos cierto debili- 
dad por él, y con la excusa 
inicial de presentar un pro- 



taremos después. 

El programa está realiza- 
do íntegramente en código 
máquina salvo en las opcio- 
nes de carga, verificación y 
almacenamiento que se ma- 
nejan en parte desde BASIC 
con objeto de que cada 
usuario adapte el programa 
a los periféricos de que dis- 
ponga (cinta, microdrive, 
wafadrive, disco...). 

Dispone de un MENU de 
opciones, que explicaremos 



* * MENU * * 
M. MENU 
D. DIBUJAR 

A. ARCHIVAR GRAFICO 
C. COPIAR GRAFICO 

R. REVISAR GRAFICO 

B. BORRAR GRAFICO 
I. INSERTAR GRAFICO 

P. PINTAR ATRIBUTOS EN 
BLOQUE 
S. SAVE 
L. LOAD 
V. VERIFY 



bastará pulsar CAPS/ 
BREAK. 

D.— Esta opción salta a 
la rutina de dibujo del SU- 
PERGRAFICOS (Merlbour- 
ne Draw) por lo que aqué- 
llos que no dispongan de es- 
te programa deberán efec- 
tuar los cambios que co- 
mentaremos después. 

A.— Archiva en memoria 
bloques gráficos que pue- 
den tener un tamaño com- 
prendido entre un carácter 
y toda la pantalla. Al pulsar 
«A» se hace un volcado de 
pantalla y aparece un cur- 
sor formado por un atribu- 
to de 1 x 1 en la parte supe- 
rior izquierda, el cual lo des- 
plazaremos hasta una de 
las esquinas del gráfico a 
archivar por medio de las 
teclas Q -A (arriba-abajo) y 
O - P (izquierda-derecha). 
Entonces se pulsa ENTER 
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para definir esa esquina, se 
«enmarca» el gráfico a ar- 
chivar y se pulsa de nuevo 
ENTER para finalizar. 

El programa nos pregun- 
ta entonces: INCLUYE 
ATRIBUTOS (S/M) para lúe 
go informarnos del número 
de gráfico que le correspon 
de en el archivo hasta un 
máximo de 254 (255 gráfi- 
cos en total) o hasta que la 
memoria se llene, en cuyo 
caso aparecerá el mensaje 
«'ERROR*». 

La zona de archivo se en- 
cuentra justamente después 
de la rutina de dibujo dispo- 
niendo de un total de 1 7236 
bytes lo cual es más que su- 
ficiente. 

En cualquier momento se 
puede salir de esta opción 
pulsando la tecla SPACE. 

C— Al entrar se borra la 
pantalla y el programa nos 
pregunta: NUM. FIGURA?, 
debiendo introducir el nú- 
mero de figura que quera- 
mos copiar en la pantalla. Si 
no existe tal figura da un 
mensaje de error y retorna 
inmediatamente. En caso de 
que el gráfico hubiese sido 
almacenado con atributos 
nos preguntará si deseamos 
copiarlo o no con ellos. A 
continuación hace un volca- 
do de la pantalla de traba- 
jo y una copia en modo nor- 
mal del gráfico en la parte 
superior izquierda. El modo 
de volcado se selecciona 
con las teclas 1 a 4 como si- 
gue: 

1 - normal; 2 - OR; 3 
AND; 4 - XOR. 

Basta pulsar la tecla co 
rrespondiente para que el 
gráfico aparezca en el nue- 
vo modo. 

El siguiente paso consiste 
en mover el bloque gráfico 
a la zona de pantalla don- 
de queremos copiarlo y fi- 
nalmente se pulsa ENTER. 
Para abandonar la opción 
en cualquier momento bas- 
ta pulsar SPACE. 

R.— Al usar esta opción 



el programa nos pregunta: 
REVISAR DIRECCIONES O 
GRAFICOS? La revisión de 
direcciones nos da varias in- 
formaciones: el número de 
figura (de 0 a 254), el tama- 
ño vertical, el tamaño hori- 
zontal, la dirección del grá- 
fico y lo que ocupa en bytes. 
Si el gráfico contiene atribu- 
tos informa también de su 
dirección y longitud. Por úl- 
timo, informa del total de 
bytes ocupados. 

Si elegimos revisión de 
gráficos éstos se irán mos- 
trando uno a uno en la pan- 
talla así como la posición 
que ocupa en el archivo. 

Como siempre basta pul- 
sar SPACE pora abando- 
nar. 

B. — El programa nos pe- 
dirá el código del gráfico a 
borrar. En caso de que éste 
no exista dará un mensaje 
de error. 

I.— Esta opción nos per- 
mite mover un gráfico des- 
de una posición dentro del 
archivo a otra, siendo la 
mayor posición donde se 
puede trasladar la del últi- 
mo gráfico archivado más 
uno. El programa nos pedi- 
rá la posición de origen y la 
de destino. 

P. — Efectúa una copia 
de la pantalla de trabajo y 
coloca el cursor en su parte 
superior izquierda. El pri- 
mer paso consiste en mover 
dicho cursor hasta una es- 
quina de la zona a colorear 
y entonces se pulsa ENTER. 
A continuación se «enmar- 
ca» para luego, con las te- 
clas del 0 al 7, seleccionar 
el color de TINTA del blo- 
que o con CAPS-SHIFT más 
la tecla de color del PAPEL. 
EL BRILLO se obtiene pul- 
sando CAPS-SHIFT + B y el 
FLASH con CAPS-SHIFT + V. 
Finalmente se pulsará EN- 
TER. 

Esta opción se puede 
abandonar en cualquier 
momento pulsando la tecla 
SPACE 
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S.— Al entrar en la op- 
ción el programa pregunta 
el tipo de datos a salvar: 1 . 
PANTALLA, 2. UDG, 3. 
GRAFICOS. Pulsando el nú- 
mero seleccionado el pro- 
grama retornará al BASIC, 
nos pedirá el nombre a 
asignar a los datos y el tipo 
de periférico a utilizar (cin- 
ta, microdrive o disco). Co- 
mo cada usuario tendrá su 
propio periférico específico 
(wafadrive en lugar de mi- 
crodrive, por ejemplo) he- 
mos pensado que la mejor 
solución era que las opcio- 
nes de carga, almacena- 
miento y verificación se hi- 
cieran desde BASIC con ob- 
jeto de que pudierais alterar 
el programa de acuerdo a 
cada necesidad siendo las 
opciones que aparecen a tí- 
tulo orientativo. 

Los datos salvados tienen 
las siguientes características: 
la pantalla que se salva es 
la que se encuentra en la 
zona de trabajo (dirección 
32768) y los UDG se en- 
cuentran en la dirección 
47532. Los gráficos se sal- 
van primero con una serie 
de bytes en los que se en- 
cuentran los datos referen- 
tes a ellos: múmero y di- 
mensiones de cada gráfico. 
Para diferenciar estos bytes, 
que son los primeros que se 
salvan, se añade el token 
DATA al nombre. A conti- 
nuación, se salvan los grá- 
ficos propiamente dichos. 

L. — Como para SAVE el 
programa nos pide el tipo 
de datos a cargar, luego el 
nombre y por último, el tipo 
de periférico que se va a uti- 
lizar. 

Cuando se van a cargar 
gráficos el programa activa 
un banderín interno de for- 
ma que al regresar del BA- 
SIC éste sepa que debe 
efectuar la insercción de los 
nuevos gráficos (el progra- 
ma debe asegurarse que el 
número total no exceda de 
254 o que no se sobrepase 



la memoria disponible). 
Cuando se produce un error 
de carga es necesario que 
dicho banderín se desactive. 
Pora ello el programa recu- 
rre o un pequeño truco que 
detecta si se han cargado 
con error los datos: antes de 
efectuar la carga se asigna 
como línea para CONTI- 
NUE un número mayor que 
la permitida en BASIC (PO- 
KE 23662, 255) de forma 
que si se produce un error 
SIEMPRE cambia a un nú- 
mero de línea inferior (don- 
de se ha producido el 
error). Una vez que se en- 
tra de nuevo en el progra- 
ma éste mira si ha cambia- 
do o no este valor aceptan- 
do o no los gráficos carga- 
dos. 

V.— Esta opción verifica 
(salvo para el disco ya que 
no tiene esa opción) la pan- 
talla de trabajo, los UDG al- 
macenados en la dirección 
47532 y los gráficos. Para 
estos últimos el programa 
pregunta la posición del pri- 
mer y último gráfico a veri- 
ficar (por ejemplo del 15 al 
25). 

Es preciso aclarar que la 
información referente a los 
gráficos que se van a sal- 
var, cargar o verificar se 
traslada a un BUFFER (con 
dirección 39680) con obje- 
to de evitar errores duran- 
te estos procesos. 

El programa en código 
máquina se almacena en la 
dirección 29000 y tiene una 
longitud de 3155 bytes, por 
lo que debemos realizar el 
DUMP en la dirección 
40 0 00 e indicar 3 1 55 como 
número de bytes. La tabla 
de información de los grá- 
ficos se encuenta a partir de 
la dirección 47788 y la di- 
rección de los gráficos pro- 
piamente dichos desde la 
48300. La dirección de los 
UDG se cambia automáti- 
camente a la 47532 con ob- 
jeto de que al crecer los grá- 
ficos no sean pisados por és- 
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tos. La razón de que entre 
la dirección de los UDG y la 
tabla de datos haya 256 
bytes se ha tomado como 
medida preventiva para los 
usuarios que manejen disco 
debido a que éste (aunque 
no ocurre con todos) opera 
con sectores completos de 
256 bytes. 

Para aquéllos que no dis- 
pongan del programa SU- 
PERGRAFICOS (Melbourne 
Draw) hay dos soluciones 
(lo sentimos en el alma): 

1 . Si disponéis de un pro- 
grama gráfico éste deberá 



cumplir los siguientes requi- 
sitos: su pantalla de traba- 
jo debe encontrarse en la 
dirección 32768 y el pro- 
grama deberá estar entre la 
dirección 40000 y la 47530 
y NO DEBERA corromper el 
contenido de las direcciones 
superiores a la 29000 (con 
la excepción hecha). 

Si estas condiciones se 
dieran bastará POKEar en 
la dirección 29144 la direc- 
ción de su programa (SU- 
PERGRAFICOS se ejecuta 
en la 40960). 

2. Ejecutar POKE 29143,24: 



encantados vuestras suge- 
rencias. 



LISTADO 1 



10 RPNDOHIZE USR ¿900(3 
20 CL5 : LET t$=CHR$ PEEK 2367 
0 LET o$=CHR$ PEEK 23671 

30 LET n$= ("Panta l la" PND t$ = " 

i" ) ♦ ( "udg" pnd t$ = "2")+ corar feo 

%" AND t$="3") 

4.0 00 5UB 100* <0$='S" > +1000* <0 
$="U"> +2000* ÍO$="L") 
50 RUN 



100 REM „ 
110 GO St¡ 
GO TO 200 
120 IF t$="3- 
130 IF p$="c" 
32768 ,6912 
14.0 IF P$»"«" 



IF t$="2" 



rMEN 



THEN GO TO 300 
THEN SPUE n$CODE 



THEN SPUE n$CODE 

THEN SPUE *"»"; l; 
, 168 

THEN RPNDOMIZE US 

SPUE nfCODE USR " 



THEN SPUE *"M"; 1; 
n$COOE 32768,6912 

150 IF P$="d" THEN RRNDOHIZE US 
R 15363 REH SPUE r. $CODE 32768 
,6912 
160 RETURN 
200 IF p$="c" 
USR "a ",168 

210 IF p$="m- 
ri$CODE USR "a" 
220 IF p$="d" 
R 15363 REH 
a- , 168 
230 RETURN 

300 LET dg=PEEK 39680 +256 *PEEK 
39681 

310 LET lg=PEEK 39682 +256 *PEEK 
39683 

320 LET l t =PEEK 39684*2 + 1 
330 IF p$="C" THEN SPUE " DPTP 
"+n$C0DE 39684, It SPUE n $C0DE d 

9 34$ IF ?$ = ■*•■ THEN SPUE ♦ 

" DPTP "+n$C0DE 39684, It; SPUE * 

"m" i 1, n$C0DE dg , Lg 
350 IF p$o"d" THEN RETURN 
360 RPNDOHIZE USR 15363: REH : 

SPUE " DPTP "+n$C0DE 39684 , t t 
370 RPNDOHIZE USR 15363: REH : 

SPUE n$CGDE dg , lg 

i3S8 mi u Wmmam 

1010 GO SUB 5000 IF t$="2" THEN 
-GO TO 1100 

1020 IF tí ="3" THEN GO TO 1200 



THEN UERIFY n $C0D 
THEN UERIFY *"m", 



POKE 29144,252 con lo 
que el programa retornará 
al BASIC y desde allí le po- 
dréis mandar a vuestro pro- 
pio programa de dibujo. 

En alguna ocasión puede 
ser necesario hacer que la 
pantalla visual pase a ser 
pantalla de trabajo: para 
ello bastará efectuar un 
RANDOMIZE USR 20920. 
De igual modo, RANDOMI- 
ZE USR 31583 nos mostra- 
rá la pantalla de trabajo. 

Estamos convencidos de 
que este programa será de 
gran utilidad y esperamos 



1030 IF p$="C" THEN UERIFY n $C0D 
E 32768 

1040 IF p%=-m- THEN UERIFY *"■"; 
l,n$C0DE 32768 
1050 RETURN 
1100 IF p$="c 
E 47532 
1110 IF P$ = "K» 
l,r.$C0DE USR 
1120 RETURN 
1200 LET dg=PEEK 39680 +256 *PEEK 
39681 

1210 LET l Q =PEEK 39632 +256 *PEEK 
39683 

1220 LET lt=PEEK 39684*2+1 
1230 IF p$="c" THEN UERIFY " DPT 
P "+n$C0De 19634, It UERIFY n $C0 
DE dg , lg 

1240 IF p$r"m" THEN UERIFY 
1," DPTP ■+n$C0DE 39684, It 
FY *"»"; l,n$C0DE dg,ig 
1250 RETU RN 
£000 REH _ 
2010 GO SUB 
GO TO 2100 
2020 IF t$="3" 
2030 IF P$="C" 
32768 

2O40 IF p$="»" 
n$CODE 32768 
¿050 RETURN 
2100 IF p$="C" 
E 47532 
2110 IF p$="B" 
l;n$C0DE 47532 
2120 RETURN 

2200 LET dg =PEEK 39680 + 256 *PEEK 
39681 

2210 IF p$="c" THEN POKE 23663,2 
55 LOPD " DPTP "+n$C0DE : LOPD 
n$C0DE dg 

2220 IF p$="»" THEN POKE 23663,2 
55 LOPD *"m",l," DPTP "+n$C0DE 
: LOPD §"»"; l,n$C0DE dg 
2230 IF p$<>"d" THEN RETURN 
2240 POKE 23663,255: LET f =USR 1 
5363 REH : LOPD " DPTP " +n $CODE 

LO 



UERI 



IF t$="2" THEN 

THEN GO TO 2200 
THEN LOPD n$CODE 

THEN LOPD *"»", 1 . 



THEN UERIFY n $COD 
THEN UERIFY *"»", 



2250 LET r=r +USR 15363: REH 
PD r.$CODE dg 

.2260 IF NOT r THEN RETURN 
2270 PRINT FLPSH 1, " «ERROR* 
STOP : RUN 
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5000 INPUT "Nombre de "+n$+" 



' / n 
lin 



5010 POKE 23658,0. PRINT «0, 1 
ta.. IBicrodfive o Bisco?" 
502© GO TO 5020+ t INKEY$="C" OR I 
NKEV $ = "»»" OR INKEY$="d"> 
5O30 LET p $=INKEV $ CLS RETIJRN 
6999 PEM T^JTTW 

9000 SftUE " ED IGRPF " LINE 9100 
9010 SR'JE "ed i gra t l"CODE 29000,3 
155 

9020 SRVE "ed i gra f 2"CODE 4.0960,6 
9030 RUN 

9100 CLERR 2S999 LORD "edigrafl 
"CODE 

9110 LORD "edi gra f 2'CODE 
9120 POKE 31123,0 POKE 31125,0: 
CL5 : RRNDOMIZE USR 30920: RUN 



LISTADO 2 



1 3R9379R7C40172ED738F 

2 793R9579R72016329679 

3 3C3295792R7B5C11RCB9 
4. ED537B5C01R800EDB0ED 

5 7B8F79CD437B11837BCD 

6 7B7B1809CD437BCD5F7B 

7 CD6B7B217E71E5ED7391 

8 79FDCB0 16E28FRFDCB0 1 

9 RE3R045CFE50CR2673FE 

10 49CR3073FE42CR1674FE 

11 4D28C0FE52CRR774FE43 

12 CR6D74FE56CR8172FE41 

13 CR2376FE53CR6272FE44 

14 280BFE4C280RCD541F38 

15 BRE1C9C300R0CD437B11 

16 507DCD7B7BCD0C73E106 

17 4CC6304FFE33C03E0132 

18 93793R9679CDCR762200 

19 9B01334CC9RF329379FD 

20 7E35FEFFC03R049B0600 

21 4F603R96796F097CR728 

22 0779953DC832049BCD50 

23 72300R3R049B3DC83204 

24 9B18F13R9679CD17764F 

25 3R049B813296792BEB3R 

26 049B26006F294-44D2105 

27 9BEDB0C93R049B2R009B 

28 E5DD21000021059B47C3 

29 0876CD437B11467DCD7B 

30 7BCD0C73FE0328070653 

31 C6304FE1C9CDR172E101 

32 3353C9CD437B115R7DCD 

33 7B7BCD0C73E1FE032807 

34 0656C6304FE1C9CDR172 

35 E1013356C9CD6B0D11S5 

36 7DCD7B7BD5CD687RDRR0 

37 7632R579D1CD7B7BCD68 

38 7RDRR07632R6793E0DD7 

39 3RR579577BBRDRR0767R 

40 CD17762B22R779CDCR76 

41 22009BE53RR6793CCD17 

42 762B22R979CDCR76D1R7 

43 ED5222029B2RR579247C 

44 9532049BED5BR7792RR9 

45 79ED52444D21059BEBED 

46 B0C91 1647DCD7B7BCDBC 

47 763EF7DBFE2FE60728F4 

48 FE0530F0CB2F3CC9FD36 

49 4701CD1277C3C878CD6B 



1299 

991 

1011 

1354 

1258 

1097 

1433 

1435 

1271 

1352 

1451 

1531 

1428 

807 

1379 

1219 

1011 

1156 

1230 

1103 

955 

1032 

704 

1174 

1003 

532 

1183 

942 

1269 

848 

1457 

1167 

1107 

1323 

1039 

1598 

1423 

1245 

1358 

1236 

1051 

1386 

998 

1185 

1250 

1463 

1468 

1365 

1241 



50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 



0D11277DCD7B7BD5CD68 1167 

7RDRR07632R979D1CD7B 1495 

7BCD687RF53R96793CCR 1390 

R076F1CRDC73DRR07632 1602 

RR796F3RR979BDF54FCD 1468 

CR76E5E5793CCDCR76D1 1693 

R7ED52444DC53RRR79CD 1382 

CR7622R579E53R9679CD 1403 

CR76D1R7ED5222R77919 1362 

545DEBC1C509DRR076EB 1542 

ED4BR7791B2BEDB8C1E1 1509 

ED5BR579F1380109EDB0 1334 

3RR979CD1776C53RRA79 1240 

CD17762BE5E53R9679CD 1381 

1776D1R7ED52444D1954 1090 

5D IB 1BEB0BEDB8E 1C 17 1 1345 

23703R96793C329679C9 1058 

3RR979CD1776C54FCDCR 1377 

76E5E5793CCDCR76D1R7 1658 

ED52444DCS3R9679CDCR 1397 

76C1D109DRR076ED42EB 1563 

EDB03R96793C3296793D 1184 

CD1776C1702B71C9CD6B 1320 

0D11197DCD7B7BCD687R 1062 

DRR0763R96793DBB2839 1170 

7BF54FCDCR76793CE5C0 1587 

CR76E53R9679CDCR76D1 1612 

R7ED5244 4DEBD 1EDB0F 1 1729 

CD17762B545D2323D5E5 1078 

EB3R9679CD177623R7ED 1349 

52444DE1D1EDB03R9679 1403 

3D329679C9CD6B0D1119 950 

7DCD7B7BCD687RDRR076 1503 

CD1776C5CDCR76C 1RFCB 1639 

79CBB9280C115D7CCD7B 1123 

7BCD017730013C329479 876 

22R579ED43R779CD567B 1326 

C37778CD437B11R67CCD 1341 

7B7BCD6B7B3EFDDBFECB 1672 

67CRBB75CB57C0CD437B 1486 

1 1CE7CCD7B7BFDCB47C6 1523 

3R967947RF040E141029 670 

FDCB4786CD0R7511007D 1135 

CD7B7BD53R9679CDCR76 1518 

11RCBCR7ED52444DCD2B 1256 

2DCDE32DD 1CD7B7BC36B 1484 

7BCD0R75F5CDBC76F 13C 1512 

18CRC5F506C04FCD1B1R 1011 

0E06CD0E76F1F5CD1776 1189 

5059FDCB474628130600 831 

4RCD1B1R0E0BCD0E7606 700 

004BCBB9CD1B1R0E 10CD 956 

0E76F1F5D5CDCR7622R5 1555 

79444DCD2B2DCDE32DD1 1245 

FDCB474628500E18CD0E 974 

7626006R54CB7BCBBBF5 1307 

CDR93022R779110800CD 974 

R930E5444DCD2B2DCDE3 1316 

2DE1F12829F1C1CDR975 1517 

C5F51 1F 17CCD7B7BED5B 1603 

R57919444DCD2B2DCDE3 1181 

2D0E18CD0E76ED4BR779 1020 

CD2B2DCDE32D3E0DD7F1 1301 

C10DC0F5C5E5CD6B7BE1 1729 

C1F10E16FD365217C93R 1141 

9679R7C847RFC5F5CD6B 1638 

0DF1F5CD1776C5CDCR76 1567 

C1110000CB79CBB9C5F5 1364 

CDRB79F1C12806110000 994 

CD167RF 1F5CDF875CD6B 1717 

7BCDBC76F 13CC 1 10CBC9 1548 

FDCB028626006F3E16D7 1040 

RFD73E1BD7E5D51E20C3 1393 
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123 301R3E17D779D7RFC310 

124 0021RCBR06004F09094E 

125 2346C9FD364700CD1277 

126 FDCB02C6 1 15D7CCD7B7B 

127 D5CD017730013C329479 

128 CD5876CD420ED1CD7B7B 

129 3R967906004F3C329679 

130 CD1B1RC36B7BCD837721 

131 RCBRC5ED4B9679060009 

132 09C13R9479R72802CBF9 

133 712370CBB9D5C5CDC776 

134 C1E5E51600596268CDR9 

135 30110800CDR930D11938 

136 11E1D1C5D5CDC779D1C1 

137 3R9479R7C8C3FB79118R 

138 7CED7B9179FDCB02C6D5 

139 CD420ED1CD7B7B21901R 

140 114000C3B5033E7FDBFE 

141 1FD811977C18DC3R9679 

142 21RCBCR7C8E5DD210000 

143 2 1RCBR4 75ECB7BCBBB23 

144 5623E5F526006R54CDR9 

145 30E5110800CDR930D1F1 

146 280119EBDD19E110DDDD 

147 E5D 1E 1 19C93E7FDBFEE6 

148 08C83EFDDBFEE60237C8 

149 18EFCD5F7B2100002298 

150 79229R79CD157877CD38 

151 78301BED5B9R79229R79 

152 010101CD3F7RCD1578ED 

153 5B9879CDE6793R9D7977 

154 CDBC76CD567B3R9779CB 

155 4728D3CD2F782R987922 

156 9E79CD38783006CD8377 

157 CD3F7RED5B9E792R9S79 

158 229R79CD8R77CD9E77CD 

159 BC76C0567B3R9779CB47 

160 28D8C32F78ED5B9E792R 

161 9R797CBR3001EB7DBB30 

162 026B5F7C923C477D933C 

163 4FC9FDCB47462803CDRD 

164 773R9D79C32D7RD90E00 

165 3EEFDBFE2FE6 19280DCB 

166 472017CB5F0E0720110D 

167 180E3EF7DBFE2FE61F28 

168 210CCB2F30FB3EFEDBFE 

169 CB2F3R9D79380BE6C7CB 

170 21CB21CB21B11803E6F8 

171 B1329D790E003EFEDBFE 

172 CB4720192F4FCB213E7F 

173 DBFE2FB1CB27CB27E6C0 

174 4F3R9D79R9329D7976D9 

175 C9ED5B9879CDE679E57C 

176 EEC0677EE6203E382802 

177 3E07329D79E1C9CD5879 

178 7EE60120F8C9CD58797E 

179 E6FEC82R98794FCB4928 

180 077CR7280325CBF9CB51 

181 28087CFE17280324CBF9 

182 CB5928077DR728032DCB 

183 F9CB6128087DFE1F2803 

184 2CCBF9229879CB21C921 

185 00002298793E7E32B579 

186 180RCDD4783805CD1179 

187 3016CD5F7BED5B98792R 

188 R579ED4BR779C5CDRB79 

189 C1CDFE78CDBC763EBFDB 

190 FE1F38D6CD5F7BED5B98 

191 792RR579ED4BR779C5CD 

192 RB79C13R9479R7C40479 

193 21004011008001001BED 

194 B0C93EF7DBFE4FCBF9CB 

195 413E7E2817CB493EB628 
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1229 




937 




1298 




1048 




1332 




507 




1 168 


o¿ñ 


1383 


c41 


1285 


?í íi 


1 187 


243 


1308 




882 


24 ^« 


i"o?? 


§JS 






171 i 




1 Clft 1 




1237 


§2? 


1378 




1394 


252 


1114 


253 


980 


254 


922 


255 


1050 


256 


1273 


257 


847 


256 


975 


259 


1136 


260 


1580 


261 


1755 


262 


1458 


263 


1451 


264 


1300 


265 


507 


266 


1893 


267 


876 


263 



11CB513ER6280BCB593E 934 

RE2805CBB93RB57932B5 1198 

79CB21C93R9479R72807 1099 

ED5B9879C3167RCD157© 1286 

C32D7RCD58797EE6FEC8 1586 

2R98795FED4BR77905OD 102© 

CB4B23O77CR7230325CB 399 

FBCB532S097C80FE1728 1155 

0324CBFBCB5B28077DR7 1126 

28032DCBFECE.6326097D 1018 

81FE1F28032CCBFB2298 114 1 

79CB23C921977936003E 981 

BFDBFECB472002CBC63E 1435 

FBDBFECB4-2002CBCE3E 1503 

FDDBFECB4 72002CBD63E 1513 

DFDBFECB4F2002CBDE3E 1499 

DFDBFECB47C0CBE6C930 1844 

712E71O0000000000000 272 

00000000000000000000 0 

00000000C 5C-5C DC5D5CD 1230 

597R0608C5D51R7E1223 840 

1C0D20F8D1C11410F1D1 1209 

C11410E5C9C5D5CD597R 1435 

7REEC0570608C5D51R77 1203 

231C0D20F9D1C11410F2 1037 

D1C114 10E2C9D5622E00 1222 

CB3CCB1DCB3CCB1DCB3C 1253 

CB1D165819D1C9E5CDE6 1441 

797CEEC067C 1C5E57E12 1557 

2C130D20F9E101200009 624 

C110EFC9E5CDE679D1C5 1840 

E51R772C 130D20F9E101 957 

200O09C11OEFC9CDE679 1246 

51E5772C1520FBE11120 1051 

001910F2C9CDE67951E5 1350 

7CEEC0675EEEC067732C 1443 

1520F3E11120001910ER 845 

C97RE6070F0F0FB35F7R 1001 

E618F64057C9CD967R11 1346 

000021009B7EFE0D2314 641 

D630E5F5210H00CDR930 1201 

F116005F19EBE12318E7 1133 

7RR737C03R96794F7BB9 1252 

3FC9RF32R47932R279CD 1312 

267BCD767B20FBFD36CR 1399 

FF21009B22P079CDC27R 1279 

2RR079773E0232R479CD 1046 

267BC D3R7BC9CD267BFD 1367 

CB016E23F7FDCB01RE3R 1290 

085CFE0DC8FE0C282CFE 1171 

3038E5FE3R30E1083RR2 1146 

79FE032SD9O62RR07977 1035 

2322R079D7CD3R7B3RR2 1171 

793C32R2792606RF32R4 949 

7918BD3E20D73E08D7CD 1133 

3R7B3RR279R723EB3D32 1075 

R2793E08D72RR0793620 977 

2B22R07913D92RR37923 960 

22R379CB4C3E5F23023E 858 

20D73E08D7C921C80011 983 

1E00C3B503CO6B0DFDCB 1190 

02S63R485CCB2FCB2FCB 1061 

2FD3FEC90183130B78B1 1177 

20FBC921003011004001 727 

001BEDB0C9CD767B20FB 1370 

CD767B28FBC9CD3E021C 1315 

C91R13FEFFC8D718F317 1465 

08002R202R204D454E55 465 

202R202R1604044D2E20 333 

4D454E550O0D17040044 430 

2E20444942554R41520D 604 

0D170400412E20415243 397 

48495641522047524146 693 
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269 49434F0D170400432E20 

270 434F5049415220202020 

271 20207E0D170400522E20 

272 52455649534152202020 

273 20207E0D170400422E2Ü 

274 424F525241522020202Ü 

275 20207E0D170400492E20 

276 494E5345525441522020 

277 20207E0D0D170400502E 

278 2050494E544152204154 

279 52494255544F530D1707 

280 00454E20424C4F515545 

281 0D0D170400532E20554 1 

282 56450D17040O4C2E204C 

283 4F41440D170400562E20 

284 564552494659FF160100 

285 494E434C555945204154 

286 52494255544F533F2028 

287 532F4E29FF0D47524146 

288 49434F204E554D45524F 

289 20FF0D12012P4552524F 

290 522O1200FF0D12012041 

291 4E554C41444F201200FF 

292 52455649534 152201401 



404 


293 


574 


294 


390 


295 


636 


296 


374 


297 


584 


298 


381 


299 


630 


300 


369 


30 1 


675 


302 


595 


303 


635 


304 


362 


305 


425 


306 


4 16 


307 


747 


308 


718 


^.QC, 


687 


310 


805 


311 


721 


312 


673 


313 


526 


314 


756 


315 


593 


316 



4414004952454343494F 598 

4E4553204F2014014714 435 

00524 146494 34F533FFF 837 

14014649472E20564552 550 

2E20484F522E20444952 612 

4543432E202054414D2E 535 

14000D0DFF0D4 1747269 714 

6275746F733O171000FF 909 

0D0D544F544 14C204F43 592 

555041444F20FF204259 851 

5445532EFF4E554D2E20 855 

46494755524 13F20FF49 869 

4E534552544 I5220454C 720 

20FF0D0D454E204C4120 665 

504F534943494F4E20FF 899 

161100140120F81400FF 615 

161 100140120EF1400FF 606 

161100140120D61400FF 581 

0D0D312E20504 14E5441 525 

4C4C4 10D322E20554447 532 

0D332E2047524 1464943 570 

4F53FF44455344452045 875 

4C20FF0D0D4S4 1535441 758 

20454C20FF03CDCF7DD1 1213 
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Los UDG son la base 
imprescindible de 
cualquier representación 
gráfica en ] a pantalla de un 

ordenador. Con ellos 
podemos crear multitud de 
imágenes que irán dando 
forma a las figuras que más 
tarde se convertirán en los 
protagonistas de nuestros 
juegos. 



Ai OBJETIVOS 



Generador da UDGs 

Este programo puede generar direc- 
tamente sobre la memoria un juego de 
UDGs, que es instalado además ini- 
cialmente a partir de la dirección 
65368 en la que, naturalmente, están 
establecidos. Por supuesto, una vez al- 
macenados en forma de Bytes, apar- 



tanto como sustitutivo personal a los 
feos caracteres de la ROM como útil 
repertorio de UDGs de 96 caracteres 
frente a 21, con la posibilidad estan- 
do posibilitados de ser identificados 
por la función SCREEN$ para los jue- 
gos, es algo de gran interés. El pro- 
grama salvará el nuevo juego como 
Bytes instalados a partir de la direc- 
ción 64768, por lo que si no es reubi- 
cado para ser utilizado deberá po- 
kearse en la variable CHARS 
(23607-23606) 252 y 0 respectiva- 





te de poderse cargar con un simple 
LOAD " " CODE, pueden ser reubi- 
cados en nuevas direcciones para dis- 
poner de varios juegos de UDG una 
vez pokeado en la variable del siste- 
ma UDG (23676-23675) la nueva di- 
rección. A la hora de generar un 
UDG, se debe tener en cuenta que los 
últimos 21 caracteres (desde la k mi- 
núscula al símbolo copyright) que apa- 
recen en tinta magenta en la línea 5. a 
de la pantalla, equivalen a los 21 
UDGs. 



Generador de un nuevo ¡uogo ROM 

El generar un nuevo juego ROM, 



mente, para reubicarlo basta recordar 
que dicha variable contiene la direc- 
ción de comienzo— 256. 



Funcionalidad máxima 
para simplificar la tarea 

La utilidad dispone de un amplio re- 
pertorio de posibilidades en el menú, 
reductoras en todo lo posible del es- 
fuerzo que puedo suponer la tarea, 
permitiendo, sobre todo a los sufridos 
programadores de juegos propios, 
manipular y seguir los resultados de la 
tarea de una forma práctica y 
racional. 
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B/ UTILIZACION 
DEL PROGRAMA 

Existen dos menús de trabajo: me- 
nú 1 y menú 2. 

MENU I: 
Selección dentro del manó f 

Las opciones del menú 1 están re- 
presentadas por un conjunto de grá- 
ficos autoexplicativos que seleccionan, 
dispuestos a continuación de la pala- 
bra menú y entre dos rayas. Pora se- 
leccionar una opción dentro del me- 
nú habrá que pulsar SPACE y una vez 
elegida la que interesa, presionar 
ENTER. 



Control Joystick o tedodo 

Es en esta situación en la que se co- 
mienza, accediéndose a ella normal- 
mente desde el menú con el símbolo 
de un cuadrado enmarcado. Aquí 
aparecerá un cuadrado parpadeante 
a mover a través de la pizarra amari- 
lla de la izquierda mediante el Joys- 
tick, cuando se presione el disparo, el 
cuadrado sobre el que estaba pasará 
a estar activado si no lo estaba, y a 
paper si estaba activado, configurán- 
dose así uno a uno los pixeles del grá- 
fico. Una vez terminado el gráfico con 
SPACE saldrá al menú. 



Espejo horizontal 

Función representada por dos fle- 
chas horizontales, una contraria a la 
otra. Su finalidad es reordenar el grá- 
fico de izquierda a derecha en senti- 
do contrario al que se encontraba. 



Espejo vertical 



Las flechas en este caso son vertica- 
les, al igual que la reordenoción 



mea- 
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Rotación a la derecha 

Función representada por una úni- 
ca flecha. Gira al gráfico en el senti- 
do de las manecillas del reloj. 



Función representada por la pala- 
bra cls escrita en un mismo gráfico. 
Borra en tinta o en papel la pizarra del 
gráfico a conveniencia del nuevo grá- 
fico a elaborar (requiera o no mucha 
tinta). 

Archivo en memoria 

Es representada esta función por 
una llave. Su finalidad es introducir en 
la memoria el gráfico impreso en ese 
momento en la pizarra Iz. Para ello se 
pedirá que se indique a qué gráfico 
del juego de la ROM sustituirá en el 
que se está creando, en el caso de que 
lo que estemos haciendo sea un jue- 
go de UDGs, entonces se selecciona 
a qué UDG sustituirá, teniendo en 
cuenta que el UDG A es considerado 
como el primer carácter magenta de 
la fila 5. a (la k minúscula) y los demás 
sucesivamente detrás de éste. Al archi- 
varse en memoria el gráfico se mos- 
trará en la pizarra los números que 
deberíamos introducir en DATAS si, a 
pesar de todo, decidimos que no ar- 
chivaremos en cinta el trabajo, y pre- 
ferimos pokearlo en el programa que 
lo utilice. 

Acceso al menú 2 

Es representado por una M y un 2. 
Conduce al menú 2, que a su vez dis- 
pone de 4 nuevas opciones a elegir 
presionando SPACE y después ENTER. 
A menos que aparezca el mensaje 
«REGRESO A MENU PRINCIPAL» de- 
bemos entender que permanecemos 
en él. 

MENU 2: 
Scrolles 

Se elige el que necesitemos indicado 
por la flecha con SPACE, y presiona- 



mos después ENTER, con lo que el 
gráfico impreso en la pantalla será 
scrollado, al igual que su copia a ta- 
maño real. Si seleccionamos la M re- 
tornaremos al Menú principal, o sea, 
al 1. 

Sacar carácter a pantalla de trabajo 

Esta opción sirve para retocar un 
gráfico que ya hayamos introducido 
en la memoria, o para hacer uno a 
partir de él. Se imprimirá el que selec- 
cionemos en la pizarra de lo izquier- 
da desde la memoria, permitiéndonos 
actuar de nuevo sobre él con el Joys- 
tick u otra opción del menú. Una vez 
retocado deberemos recurrir de nue- 
vo a la llave para introducirlo en me- 
moria, encima del antiguo (que sigue 
archivado en la memoria tal como an- 
tes) o en cualquier otro sitio. 

Panel derecha 

Si varios de nuestros gráficos forman 
parte de una única forma, por ejem- 
plo, si hacemos un hombre de 3 por 
4 gráficos, será necesario realizar a 
menudo numerosos ajustes en los grá- 
ficos para que la pierna y el pie estén 
unidos por el sitio justo, y el brazo y 
la mano, al verlos juntos, en verdad 
parezcan lo que son. Estos retoques 
serán mucho más llevaderos al poder 
ir colocando gráficos en el panel de la 
derecha., ver cómo va el asunto y 
comprender al instante que, por ejem- 
plo, al gráfico de la mano hay que 
scrollarle hacia abajo para que coin- 
cida con el del brazo. 

Para sacar el máximo rendimiento 
al panel podemos realizar las siguien- 
tes operaciones: 

Situar. Señala con el Joystick el lu- 
gar donde situar el gráfico ya progra- 
mado en memoria. Entonces disparar 
y se nos preguntará qué cadena se de- 
be situar allí. Para salir presionar SPA- 
CE. 

Cls. Borra el panel. 

Mem. Permite archivar y sacar de 
memoria paneles. Ello puede ser útil 
por si se retocan o reelaboran varios 
gráficos del panel, pero al fin y al ca- 
bo para la memoria del panel siguen 



siendo los mismos, por lo que en vez 
de tener que volver a situarlos encime 
de ellos mismos, bastará con mandar 
pintar el panel de memoria. Pero el in- 
terés de esta función está centrado 
aun asi. en el caso de haber interrum- 
pido de un día a otro nuestra labor, 
para que no tengamos que construir 
un rompecabezas cada que vez que 
continuemos. 
Menú. Retorna al menú principal. 



Operaciones con cinta 

Salvar UDGs. Graba en cinta los 
21 UDGs que equivalen, como ya he 
explicado, a los 21 últimos caracteres 
en tinta magenta de la línea 5. a , des- 
de la k minúscula hasta el copyright. 

Salvar juego paneies. Graba 
la memoria de Tos 9 paneles en caso 
de que vayamos a continuar otro día. 

Cargar. Con las opciones opues 
tas a las anteriores en caso de reanu- 
dar la tarea iniciada días atrás. 

lO CLERR 64600 PRINT RT 10.0. 
FLRSM 1. PRPCR 6. INK 3," SUPE 
R GENERRDOR DE GRRFICOS PR1 
NT INK l.RT 11.0, €> RGUS P*f 

» MXCR0H0B6Y PRINT RT 21, 

0, INUERSE 1," espera un s* 

gundO POKE 23675,88 

POKE 23676,282 POR 1 =64600 TO 6 
«711 RERD * POKE I.» NEXT f 
POR I 64 768 TO 65367 POKE 1.9 
NEXT f 

15 DRTR 255,129,129.129,129,12 
9. 129.255.255 . 129, 189 . 189 . 189 . 18 
9 , 129 , 255 , 14 . 76 , 74 , 129 . 129 , 82 . 50 
.112 

16 DRTR 24.166.193,224.7,131.1 
01 ,24 ,0,4 . 142, 159, 132.68,56.0.0. 
211 . 146,147, 145, 145 . 2 19 , 0 , 5é . 40 , 



17 DRTR 0,4,6,255,6,4,0.0,0,32 

,96.256,96,32,0,0, 16.56. 124 .16, 1 
6. lé. 16. 16, 16. 10, 16, 16, 16. 124 ,56 



6 ,^^¿7. ¿19^69 . 13 
19^L^^TeEP . 2 , 0 



PRINT RT 19,3, "Sel* 



BEEP .5,20 
cif-cciona TECL 
PRINT Rf 21,1, PRPER 5, "US 
R UN JOYSTICK SI LO TIENES" INP 

ET w-CODE •« LET CiCODE ti LET 
r=CQD^7^^LtT t.COOE t • 

íl^^^ffiK í DRRU 255,0 PL 
OT 112.54 DRRU 143.0 PLOT 112, 
31 DRRU 143,0 PLOT 0,120 DRRU 

255.0 PLOT 0,124 DRRU 255,0 
BRIGMT 1 INK 3 PLOT 19,108 DR 
RU 73,0 DRRU 0,-72 DRRU -73,0 

DRRU 0.72 BRIGMT 0 INK 4 PLO 
T 108,107 DRRU 15.0 DRRU 0,-14 
DRRU -15,0 DRRU 0.14 PLOT 13 

4,114 DRRU 60,0 DRRU 0,-52 DR 
RU -60,0 DRRU 0,52 PLOT 198,11 
4 DRRU 0, -52 INK 0 

22 POR í«8 TO 13 PRINT BRIGMT 
1, RT f , 17, " ' . PRPER 6, RT 

f.2S." NEXT f GO SUB 

9200 



25LET^|«0^GOSUB II 

4 Sn^^^^iini^T. 

OIM * (9,42) 



1020 

DIM x»<4 
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45 LET xf.(l>=" 1-SCROLL PRNTRL 
LR DE TRRBR JO LET x|(2(."8-L 

LEURR CRRCT R PRNT-DE TRRBRJO" 
LET x«(3>*' 3-UTILIZRR PRNEL DC 
MR LET x»(4)=" 4-OPER 

RC IONES CON CINTR 

50 GO I U SBBB 

" M UW 

lie LET h«3 LET v«9 PRINT RT 
19,28, PRPER 4," JOYSTICK 

1¿0 LET ■sCODE INKEY*. 

175 IP ««9. THEN LET h «h - l 1 RNC> 
h>3) GO TO 280 

183 IP TMEN LET h »h ♦ ( 1 RND 

h < 10) GO TO 288 

187 IP a*r THEN LET v=v*(l RNO 
v < 16) GO TO 288 

189 IP mmt THEN LET v»v-(l RND 
V >9> GO TO 288 

198 IP »=t TMEN LET C «RTTR (V,h 
) /O PLOT OUER 1, 189*h , 112-v LE 
T OIS RNO NOT <C-1>>*1 PRINT R 
T v , h , PRPER t,"l" BORDEP C BE 
EP .4.8 BORDER 7 

193 IF «=32 TMEN RETURN 

19S PRINT PRPER 8, INK 4 , RT V,h 
Bee p .008,-9 GO TO 250 

288 PRINT INK 4 . RT v.h, PRPER 8 

•8" BEEP .87,7 

258 PRINT RT v,h, PRPER 8. "2" 



GO 



4 18 PRINT RT 19,20, PRPER 4 , " E 
SPEJ-UERTC" GO SUB 1025 

428 POR f=112 TO 119 POR n.96 
TO 183 IP POINT </,r<) TMEN PRIN 
T PRPER l.RT n -87, f -189, "2." 

4 38 NEXT n NEXT f GO SÜB 9000 

""' 

lll^HNT^TTfT20^RPER 4, E 

5PCJ-M0RIZ" . SO SUB 1823 

620 POR («112 TO 119 POR HJfO 
TO 183 IP POINT If.n) TMEN PRIN 
T PRPER l.RT 1 12-n , 122- I , "fi" 
630 NEXT n NEXT i GO SUB 9O0O 



[ Eiygjj 

'o"^». ¡NI . . « 



818 PrInT AT 19.20. PRPER 4, 
OTRCN-OCHR" GO SUB 1825 

028 POR f»112 TO 119 POR n=96 
TO 183 IP POINT Cí,r>> TMEN PRIN 

T PRPER l.RT 128-f ,186-n, "g" 

830 NEXT n NEXT f GO SUB 988 8 
RETURN 



en ptpení", FLRSH 8, 



1820 PRINT RT 9.14. INUERSE 4, P 
RPER 6, INK 0. ' 

1025 LET h«3 LET w «9 POR n »9 T 
O 16 PRINT , PRPER 6- 15*41, RT n 
NEXT n LET 4-8 



1010 



ÜIO 



i. io pííTÑT mt N,. j e, nnrew -i m 

MRCEN GRRP " INPUT . PLRSM l."R 
que carácter sus t » t uve , PLRSM 
■ ",4* BEEP .03.3 LET ■ = CODE 
IF »<32 OR »>127 TMEN GO TO 

1215LET dia*8»64512 
1228 FOR n=103 TO 96 STEP -1 LE 
T p«8 FOR í-112 TO 119 IF POIN 
T U,n> TMEN LET p «P *2t t 1 19- f ) 
1230 NEXT í POKE d.P LET d=d*l 
PRINT RT 112-n,3, PRPER 3." 
" , RT 112-n.6,P NEXT n 
1248 POKE 23687,252 PRINT PRPER 
5*<1 RNO «/2-INT (»/2)>, INK 1* 
(1 RNO U/2«INT r«/2)),RT INT (■/ 
32) »2-l,»-INT (n/32) *32,a» POKE 

B 2368 7jt é8 55 ep ..¿*A?2. ^SySKoS 



ísie^RiNi^i i 



,UÓ 9180 RETURN 



ji PRPER 1, INK 

o, PLRSM 1,-RBIERTO MENU-2.SELE 
/, IONH OPCION IX EP .01,1 BEEP 
.02,-8 LET 0=8 IP INKEY»<>" 
TMEN GO TO 1318 
1328 IF INKEY *.■" " TMEN LET 0*1* 
(O RNO 0<4> POR r.l TO 32 q PRIN 
T PRPER 0*3, BRIGMT ^SL m ^,33-l 
,x$(0)ll TO M BEEP .886,-3 NE 



RT Í9.8, PLRSM I," REGRESO R 

MENU PRÍNCIPRL BEEP 1,28 

PRU5E 58 BEEP .3,8 PRINT RT 19 



R 3, " STR 



348 GO TO 1328 

H'.'ij-cMum 



2118 PRINT RT 19,8, INK 4, PRPER 
1," SELECT SCROLL "¡ INK 8, 

PRPER 7," FLRSM 1 , "O" , FLRSM 

8, INK 3, • K L M N "• LET S=8 

2128 IF INKEY»=" " TMEN PRINT RT 
19,28*S»2, OUER 1, FLRSH 8, INK 
3, ■ LET »»S*1 RND S <4 PRINT 
RT 19,20*ft»2, OUER 1, FLRSM 1 , " 
V BEEP .1,9 

2125 IP CODE INKEY»=13 THEN BEEP 
.j.i. ..o r.im ,MS«»)«i' r,n -,mh 

9000 BEEP .3,8 IF S «4 THEN RFT 

URN 

2151^0R^7¿9^T^16 FOR n »9 TO 3 

STEP -1 PRINT PRPER 1»(5 RND R 
TTR (f.n)a48),RT l. NEXT 
n PRINT RT f,3, PRPER í, "fi" N 

llg jp^irni U FOR O =4 TO 1 

0 PRINT PRPER 1«(5 RND RTTR tí, 
n).48),RT f,n-l,"fl" NEXT n PRI 
NT RT f,18, PRPER 0."fi" NEXT f 
RE TURN 

2171 Wm n.5 Tó lé POR («18 TO 
16 PRINT PRPER 1*15 RND RTTR (/ 
,n)=48).RT f-l,n, NEXT I PR 

INT RT 16, n, PRPER 6,'fi" NEXT n 

218inP01^S3^T^lB FOR f»15 TO 
9 STEP -1 PRINT PRPER 1*15 RNO 
RTTR lf,ni<48),RT í*l,n."2" NEX 
T f PPINT RT 9,n, PRPER 5, 2" 
NC » I n RETURN 
2198 — 

effc . 

MPRIMIR-'". FLRSM 8. 

d > 127 TMEN GO TO ¿280 
2218 POKE 23687,252 PRINT RT 9. 
14, PRPER 6,4* POKE 23687,60 

o sur ~ ' 
í Iffi 

2318 



FLRSM 8, 

. PLRSH 8, ■ 
MN«3". FLRSH 8, " " 
■4", FLRSH 8, " l 
" 1*28 



FLRSH 1,"S 
. PLRSH 1," 
PLRSH 1,-HE 
FLRSH 1, RET 
BEEP .5.14 



2322 LET ««CODE INKEY % 

2323 IF maa THEN LET hih-ll RNP 
h>17) GO TO 2335 

2324 IF THEN LET h »h * ( 1 RND 

h <23) GO TO 2335 

2325 IF »«e THEN LET v=v-U RND 

V >8) GO TO 2335 

2326 IF mar THEN LET vrvul RND 

V <13) GO TO 2335 

2327 IF ««32 THEN BEEP .2.5 GO 
TO 2318 

2338 IF THEN PRINT RT v.h, F 
LRSH 1, OUER 1, BRIGHT 1," BE 
EP .3,4 INPUT INK 1," Oue arifi 
C O />*>". 9f POKE 23687,252 PRINT 
INK 1, BRIGHT l.RT v.h, a i POKE 
23687,68 PRINT RT v.h ♦8, PRPER 
6, BRIGHT 1,«1 GO TO 2320 
2331 PRINT OUER 1 , RT v,h, BRIGHT 
INK 2,"2" BEEP .008,-2 PRI 
— 1 , RT v.h, BR 



mi oum ... 

GO TO 2322 
2335 PRINT OUER 
BRIGHT 1,"5" 1 
OUER l.RT 



BRIGHT 

i, INK 2,RT 
BEEP .05,15 
,h, BRIGHT 1, 



PRIN 



GÓ TO 2322 
2340 FOR f=17 TO 23 FOR n «8 TO 
13 BEEP .81,n*f».82 PRINT RT n 
,f, BRIGHT 1," " , RT n , I *8, PRPER 
6," " NEXT n NEXT I GO TO 23 



DE MEH»2 , PLRSH 0, 
2365 IP •*! THEN INPUT PRPER 5, " 

Oue panel pasara a **f (l-9)?";h 

POKE 23687,252 POR 1*9 TO 6: 
FOR n=l TO 6 LET a ( h , t *6 *n ) «COD 
E SCREEN*. r7*n,17*f) NEXT n NE 
XT í POKE 23687,68 GO TO 2318 
2378 IP mnS THEN INPUT PRPER 5," 

Oue panel saco de »e« . ( 1 -9) *>" , h 
POR f»8 TO 6 POR nsl TO 6 IP 
a(h,r*6«n)>8 THEN PRINT BRIGHT 1 
, PRPER 6,RT 7*n,25*r," " . RT 7*n 
,17*f," " NEXT n NEXT I GO TO 
2318 

2371 PRINT BRIGHT 1, PRPER 6,RT 















i 


i! ' 






W#I4 


trmv *iw 




2421 IF c=l THEN INPUT PRPER 5, " 
NOMBRE JUEGO OE UD6&7- #» if LE 
N rtdl THFN SRUP c tCOOE 653feB,l 



PRPER 7 



68 RETURN 

2422 IP c =2 THEN INPUT 
. "NOHBRE JUEGO DE CRRT . - . C • IF 

LEN C*<11 THEN SRUE < (CODE 64 76 
6,768 RETURN 

2423 IP C»3 THEN INPUT PRPER 2, " 
NOHBRE J. DE PRNELES^" . C « IP L 
EN C«<11 THEN SRUE C% DRTR 4(1 
RETURN 

24 32 IF (>4 OR C -5 THEN INPUT "N 
OHBRE DEL J. DE CRRCT"»". c» PRIN 
T RT 19.8, PRPER 6, INK 3, FLRSM 
li* PON EN MRRCHR EL CRSSETT 

E LORD c$CODE PRINT RT 21 

,8. " PLOT 8 

,8 DRRU INK 2.255.8 GO SUB 922 
8 RETURN 

2434 IF c »6 THEN INPUT "NOMBRE O 
EL J. DE PRNELES " , t % PRINT RT 1 
9.8. PRPER 6. INK 3. FLRSH 1 , " 
PON EN HRRCHR EL CRSSETTE 
LORD c* DRTR a<> PRINT RT 21.8 
; " PLOT 8.8 DRRU 

INK 2, 255 x 8 
499' 



. . .iBTOT^flTTs . 14 , MENU INK 
1. "B £ £ % £ G M",RT 17.19. INK 
3. •I". TnOeRsÍ T.RT 19.14,"STRT 
US fl GO SUB 100 

5885 BEEP .2.13 BEEP .3.-3 PRI 
NT RT 19.20. PRPER 2, INK 7," SE 
LCT. MENU" 

5010 IF INKEY*.." " THEN PRINT RT 

17,l9»ne. ' . RT 16.19*ae. OUER 
1, INK 1, " BEEP .2,9 LET ■« » 
■C«2 RND ae<12 PRINT RT 17,19»» 
e, INK 3,"X",RT 16. 19 «se. OUER 1 
. PLRSH 1, INK 1¿" " 

5828 IF CODE INKEY $ e 13 THEN GO S 
UB (»e »2) * 100- 100 GO TO 5005 
- . 'OI O 

n*9 TO Í6 I 
I PLOT 1 »109 . 1 



; m m 



9010 I 

FOR f =3 TO 18 
F RTTR (n , f ) >8 



9128 
■<.'Ok^i 

M M 



f»32 TO 127 
186»8).RT INT 
I /32I * 32 , CMR % 



PRINT INK 3 RND < 
( f /•32> «2-2, I - INT 
I NEXT f 
9228 BRIGHT 1 POKE 23687,252 F 
OR l«32 TO 127 PRINT RT INT (f/ 
32) *2-l , 1 -INT «1/321*32. PRPER 5 
♦(1 RND f/2«INT (f/2)), INK 1*11 
RND Í/2*INT (f/2)>,CHRf. f NEXT 
f POKE 23686.8 POKE 23687.68 
BRIGHT 8 RETURN 



MICROHOBBY ESPECIAL 43 



44 LENGUAJES 

Carlos BELLVER 



■i 





ESTE PROGRAMA, ESCRITO INTE- 
GRAMENTE EN CODIGO MAQUINA, 
PERMITE USAR DOCE NUEVOS CO- 
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Estos nuevos comandos debe- 
rán escribirse carácter a ca- 
rácter (no importa si se hace 
en mayúsculas o en minúscu- 
las) tras el símbolo &. Para 
usarlos en un programa, la primera lí- 
nea de éste habrá de ser similar a la 
siguiente: 

10 CLEAR 63999: LOAD ""CODE: 
RANDOMIZE USR 64000 

Si posteriormente se hace RUN, 
NEW o CLEAR, tendremos que ejecu- 
tar otro USR 64000 para poder vol- 
ver a usar las nuevas instrucciones del 
EXTBASIC. 



LOS NUEVOS COMANDOS 

Son los siguientes: 
&REPEAT 

Se uso conjuntamente con &UNTIL 
pora crear un bucle que se ejecutará 
hasta que se cumpla la condición que 
sigue a &UNTIL. Por ejemplo: 

EJEMPLO 1 

104REPERT 

20 PRINT RT RND*21 ,RND*31, "»" 
304UNTIL , INKEY*»"*" 

Dibujará asteriscos en la pantalla 
hasta que se pulse la tecla «K». 

Se pueden anidar los bucles 
&REPEAT del mismo modo que se ha- 
ce con los FOR-NEXT, hasta un límite 
de ocho anidaciones. 

&REPEAT ha de ser la última instruc- 
ción en una línea, y sólo se puede usar 
dentro de un programa, nunca en mo- 
do directo, es decir, sin un número de 
lineas. Si se hiciera esto no se ejecuta 
ría nada. 

&CLR 

Cuando el usuario pulsa BREAK 
dentro de un bucle REPEAT, la pila de 
REPEAT (la zona de memoria en que 
se almacenan los números de línea a 
que ha de saltar UNTIL) no se borra, 
y si esta acción se efectúa varias ve- 
ces, la pila acabará por llenarse y 
aporecerá un mensaje de error. En- 
tonces habrá que usar &CLR, que bo- 
rra la pila de REPEAT 

&SCREEN, num 

Esta instrucción pone el BORDER y 
el PAPER al color indicado por la ex- 



presión «num» y el INK al color que 
mejor contraste con éste. También po- 
ne a cero el FLASH y el BRIGHT. Re- 
sulta más rápido que BORDER 
num:PAPER num:INK 9:BRIGHT 
0:FLASH 0:CLS, cuyo efecto es equi- 
valente al de &SCREEN, num. 

&RECOL, papar, ¡nk 

Cambia los atributos a los indicados 
por las expresiones «poper» e «ink», 
pero no altera lo que haya dibujado 
en la pantalla. Ejemplo: 



EJEMPLO 2 



1 BOA SC RE EN , 0 

1X0 POR Ir« TO 703 PRINT CHR$ 
<32*INT fRN0»96> t , NEXT I 
120 FOR 1=0 TO 15 
130 FOR J*0 TO 7 
140AREC0L ,0, J 



&SCROLL 

Desplaza la pantalla una línea ha- 
cia arriba, lo cual es útil en juegos sen- 
cillos o en presentaciones como ésta: 

EJEMPLO 3 

100 PRINT RT 21 ,0, "eXTBflSIC Ul 
.0" 

110 FOR 1-0 TO 21 
12043CROLL BEEP .1,1 
130 NEXT I 



&CLSLOW 

Borra la parte inferior de la panta- 
lla, normalmente las dos últimas líneas, 
en las que se puede escribir mediante 
PRINT #0, o PRINT #1 . Por ejemplo: 

EJEMPLO 4 

100 FOR • =32 TO 255 

HOiCLSLOU PRINT «0, "Pulsa -c- 

para ver ti cmr« -, , 
1204REPERT 

130&UNTIL , INKEY1="C" 
1*0 PRINT CHR$ (, ) , 



&SOUND, fl, f2, stop, 
dur 

Produce un sonido de frecuencia 
«fl» (0-65535) y duración «dur» 
(0 65535). Suma «step» a «fl» y si el 
resultado es menor o igual a «f2» re- 
pite el proceso. Pueden obtener algu- 
nos efectos bastante buenos: 

&SOUND,100,200,1,8 

&SOUND,400,500,1,4 

&SOUND, 100, 500, 1,16 



&NOISE, dur 

Produce ruido durante un tiempo 
«dur». Cuando «dur» vale más de 
8000 los resultados no son muy acep- 
tables. Ejemplo: 

EJEMPLO 5 

100 BORDER 2 ANOISE.60 

110 BORDER 1 4NOISE.100 

120 BORDER 4 ¿NOISE,40 

130 BORDER 7 



&WAIT, dur 

Detiene la ejecución del programa, 
como PAUSE, durante «dur/50» se- 
gundos. Al contrario que PAUSE no si- 
gue la ejecución cuando se pulsa una 
tecla. Por ello &WAIT,0 espera más 
de veinte minutos... 

&MOV, numbytes, org, 
dest 

Copia un bloque de bytes de longi- 
tud «numbytes» en la dirección «org» 
a la dirección «dest». Su utilidad más 
inmediata es la de guardar pantallas 
en memoria y recuperarlas, pero se le 
pueden encontrar muchas otras. 

El ejemplo muestra un caso de alma- 
cenamiento de pantallas sin atributos: 

EJEMPLO 6 

100 CLERR 26999 RRNDOMIZE USR 
64000 
ÍIOASCREEN.S 
120 FOR i =0 TO 5 CUS 
130 CIRCLE 126, SS. 10*i 410 
1 404MOU, 6 144, 16384 ,27000*6144 *> 
150 NEXT , 

160ASOUND, 100,300, 1 .4 
17© FOR i =0 TO S 

180&MOU.6144 , 27O0O*6144*i , 16384 
190AN0ISE ,20 NEXT i 



Sí DEL, Une 1, Une 2 

Borra las líneas del programa Basic 
linel y Iine2, ambas inclusive. Su utili- 
dad es evidente. 



EL PROGRAMA EXTBASIC 

Este programa se baso en el hecho 
de que se puede cambiar la dirección 
de la rutina de errores a lo que se sal- 
ta con RST 8. Esto se hace así: 

LD DE, NEWADD 

LD HL, (ERRSP) 

LD (HL),E 
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INC HL 
LD (HL).D 
RET 

Siendo NEWADD la dirección de la 
nueva rutina de errores y ERRSP la va- 
riable del sistema en 2361 3d. 

Pues bien, el programa EXTBASIC se 
sitúa en NEWADD (64010) y lo pri 
mero que hace es comprobar si el 
error es «Nensense in Basic». Si no es 
asi el error, no se puede deber a la in- 
troducción de una de las nuevas ins- 
trucciones. En tal caso hay que saltar 
a la rutina de la ROM que presenta un 
informe de error o a la que presenta 
un cursor parpadeante para señalar 
error de sintaxis, según estemos ejecu- 
tando una instrucción o comprobando 
su sintaxis (esto se sabe por el bit 7 de 
FLAGS, 2361 Id, puesto a 1 para in- 
dicar ejecución). 

En caso de que si fuera error «Non- 
sense in Basic, el programa EXTBASIC 
lee el carácter que lo ha provocado y 
si no es «&» pasa el control a las ruti- 
nas de la ROM antes comentadas. Si 
efectivamente es «&» el programa lee 
los caracteres que hemos escrito a 
continuación (usando RST 32) y si coin- 
ciden con alguno de los nuevos co- 
mandos, toma los parámetros que le 
siguen y, si estamos en tiempo de eje- 
cución (bit 7 de FLAGS a 1), salta a la 
rutina correspondiente al comando de 
que se trate. 

Tras ello hay que volver a la ROM 
para comprobar o ejecutar la siguien- 
te instrucción. Esto se hace saltando o 
la dirección 7030d. 




Poro utfoar lo» do» bloque* de codtgo moqwno ót- 
benm tcdear el pnmcro y reoizar el DUMP. Sin borrarfo 
de la memore pr oceoW emoi o teclear el segundo luta- 
do y hocef el DUMP corntípontSente. y, por ultimo, gro- 
borlot en conjunto indicando como dirección lo 648 i 9 
y 860 como numero de bytes. 



LISTADO 1 
DUMP: 64.000 
N.° BYTE 5: 33 0 



2R3D5C 1 10RFR732372C9 
13CD44FR210313CD3025 

. oo4. : > :. f ' ■ ■ ■■ ibf i 
•m ..• t : h ooi • . ; 
. -.m \r, .n ■ i ■.. ..«:«,.. 

• I ' • , . ■ l • PMÍK' <f- 

00FF2ROD5CE5E5ED733D 
SCE 1CD60FRE1223D5CFD 
CBBtf -f ■ 16 ioc vh- :•• . B 
225r.5C7EFE26C28RlC06 
1P; HM5BFSF. i'FlE^r.H F 
4 1 j-t 1 OF E EE :• PPC 7 7E D5E 
l.?^310E«r 38«1C TE 

i p <> p , í p p e- e í i e f m 1 1 o i 
sbcb -f . pí : <mpp; t -i--. ■ 

B82B0R1RBE2BO623131© 
F8 180823 18FD232323 18 
Dr4B83#4A838WESC FFI 
2C200 1E7C5CD82 ICC 1 10 
' M ir • M E 1FEPC ¿ 04 FE 
3R20B3CD3O25C85E2356 



EBE9O6534 35245454E01 
I ¿t LHV •>;.-4 , :.4 34F4C P¿PO 
FC0344454CO224FCO653 
4 3524F4C4C00FE0D0643 

4C5 4. 4fí ;-oot toro- u 

4F495345O14EFC05534F 
4 t 4404 'PKMS-iU . 
5401PBFC034D4F5603B6 
. o,, V . 4'. - 04-4 114 00 í 

FC055S4E54494CO1EDFC 
O3434C520013FC-800080 



937 

995 

687 

1088 

1060 

598 

1113 

1321 

1533 

1014 

1003 

1533 

989 

911 

824 

943 

55© 

713 

1098 

1077 

1710 

974 

923 

82? 

720 

607 

802 

830 

940 

913 

1143 

62B 



LISTADO 2 
DUMP: 64.5 0 0 
N.° BYTES: 36 0 



CD94223R485C328D5CC3 
í BPC C CC 5£T'FF08301BFS 
COD52OFE083013070787 
4 ?r iso¿ 1005 5 iioi seo : 

BF0877EDBOC9CF 13CDR5 

£03823Be2eseeee«s3CD 

6E 19E5CDR52D38 14B028 
1 16069CD6E 1954SDE IES 
>.(!',! :i 4t • •. .•: .< ' l • 
CDRS2D381D58593R485C 
0F 0F PF 4 T r 1 POOP ?E E ( 1 O 
B1D 4FEPF.peiPFE?31P 'm 
B320F0C9CFORCDR52D38 
F9C5CDR52D38F3ED4300 
5BCDRS2D38CRED43025B 
c :.-••( «ee i<^P69r>iEM ' 

C 1PM0PM)» 'I r>4 2ElP8f fs 
rv,r DB50 3C- 1E It !-4!'00' E> 
0918E7CDR52D38C0FB76 

B K -,i L>M'..'l> IftflDCSI dus 

2c36r7e id 1e0b0c93r52 

fofe08303f3c3252fo2r 
4. . mi booooo^r; 

FD71P37P.->3P?S3rDC9 »H 

581 58 ••. '<. PCDD8ft1>n7|a 
0D2 152FD352A53FD2B2B 
• ' i m<-. >f f. f 4f . ( 

41 ci .'C.'l r -„• ,-it R| )2S2 - - 
FOai20FD2253FDC9CF|0 134 9 



O O O O P O O O O O O O P O O O O O O O i 
0122FP00000PPPPPPPPP I 



1087 

1165 

813 

716 

1522 

OSS 

1071 

1189 

1610 

891 

537 

1102 

1340 

1464 

1193 

1564 

1468 

1439 

1296 

1262 

1587 

1456 

1113 
485 
1177 
1251 
898 
110' 



LISTADO 
ENSAMBLADOR 



II 
21 
31 
48 

58 
¿8 
71 

88 BUCLE1 

98 
III 
111 
128 
131 
141 
ISO 
lol 
178 
188 

191 BUCLE 4 
288 BUCLE5 
218 BUCLE 2 
221 
231 
241 
251 
268 

278 BUCLEo 
281 
291 
311 

318 BUCLE 3 

321 

331 

341 

351 

361 

371 

381 

391 

411 

411 

421 

438 BUCLE 7 



458 



ORG ¿4888 

LD HL,<23613) 
LD DE.BUCLEl 
LD (HL),E 
INC HL 
LD < HL) , D 
RET 

LD DE, BUCLE 1 

PUSH DE 

LD A, (23611) 

CP IIB 

JR N2.BUCLE2 

CALL BUCLES 

LD HL.4867 

CALL 9521 

JR N2.BUCLE4 

LD HL ,4815 

PUSH HL 

JP 7838 

POP HL 

LD A, (23618) 

LD <1Y4|),IFF 

CALL 9521 

JR Z.8UCLE6 

INC A 

JP 4883 

LD HL, (23645) 

LD (23647) ,HL 

LD (23643) ,HL 

JP 4797 

LD <1Y«I),IFF 

LD HL,(23613) 

PUSH HL 

PUSH HL 

LD (2361 3), SP 
POP HL 
CALL 8UCLE7 
POP HL 

LD (23613) ,HL 
BIT 7,(1Y*I) 
RE7 NZ 
JR BUCLES 
LD HL,< 23645) 
DEC HL 

LD ( 23645), HL 
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4¿8 


LD 


A,(HL) 


978 


CP 


I2C 


1488 


LD 


C,H 


1998 


LD C.H 


478 


CP 


I2¿ 


981 


JR 


NZ.DATA8 


1498 


LD 


D,E 


2888 


LD D,D 


481 


JP 


NZ,738¿ 


991 


RST 


128 


1588 


LD 


C,H 


2818 


NOP 


491 


LD 


B.818 


1888 DATA 8 


PUSH BC 


1518 


LD 


511 


LD 


HL, 23297 






C,A 


2828 


INC DE 


1818 


CALL 7298 


1528 


LD 


D A 


2838 


NOP 


518 BUCLE 


PUSH HL 


1828 


POP 


BC 


1538 


NOP 




2848 


ADD A,B 


528 


RST 


•28 


1838 


DJNZ DATA7 


1548 


LD 


L,(HL) 


2858 


OR6 ¿4588 


538 


POP 


HL 


1848 


POP 


HL 


1558 


DEC 


C 


2868 DATAS 


CALL 8852 


548 


M 


•DF 


1858 DATA¿ 


PUSH HL 


1568 


DEC 


B 


2878 


LD A, (23624) 


558 


CP 


841 


18¿8 


RST 


118 


1578 


LD 


C,(HL) 


2888 


LD (23¿93),A 


568 


JR 


C,BUCLE9 


1878 


POP 


HL 


1588 


LD 


C,A 


2898 


JP 3435 


571 


CP 


85B 


1888 


CP 


•8D 


1598 


LD 


C,C 


2118 


CALL 11733 


588 


JR 


NC, BUCLE 9 


1898 


JR 


Z.DATA9 


1688 


LD 


D,E 


2118 DATA 12 CP 888 


591 


LD 


(HL),A 


1188 


CP 


•3A 


1¿18 


LD 


1,1 


2128 


JR NC.DATA13 


¿88 


LD 


DE,<23¿45) 


1118 


JR 


NZ.BUCLE8 


1628 


LD 


BC.DATA18 


2138 


PUSH AF 


¿18 


LD 


(DE), A 


1128 DATA? 


CALL 9528 


1¿38 


DEC 


6 


2148 


CALL 11733 


¿21 


INC 


HL 


1138 


RET 


Z 


1¿48 


LD 


B,c 


2158 


CP 888 


¿38 


DJNZ BUCLE 


1148 


LD 


E,(HL) 


1 658 


LD 


C,A 


2168 


JR NC.0ATA13 


¿48 BUCLE8 JP 


738¿ 


1158 


INC 


HL 


1¿¿8 


LO 


D|L 


2178 


RLCA 


¿58 BUCLE 9 LD 


A, 118 


11¿8 


LD 


D,(HL) 


1678 


LD 


C,(KL) 


2188 


RLCA 


¿¿8 


SUB 


B 


1178 


EX 


DE.HL 


1688 


LD 


B,H 


2198 


RLCA 


¿71 


LD 


(2329¿),A 


1188 


JP 


(HL) 


1698 


INC 


B 


2288 


LO B,A 


¿88 


LD 


HL , DATA 1 


1198 DATA1 


LD 


8,153 


1788 


LO 


(HL),D 


2218 


POP AF 


¿98 DATA2 


LD 


DE, 23297 


1288 


LD 


M 


1718 


CALL M,2227¿ 


2228 


OR B 


788 


BIT 


7,(HL) 


1218 


LD 


D,D 


1728 


LO 


B,C 


2238 


LD HL, 22528 


718 


JR 


NZ, BUCLE 8 


1228 


LD 


B,L 


1738 


LD 


C,C 


2248 


LD DE, 22529 


721 


LD 


A,<2329¿) 


1238 


LD 


B,L 


1748 


LD 


D,H 


2258 


LD BC.783 


738 


LD 


6,<HL) 


1248 


LD 


C,(HL) 


1758 


LD 


BC.DATAIl 


2268 


LD (HL) ,A 


741 


INC 


HL 


1258 


LD 


BC.DATA8 
B 


1 768 


INC 


BC 


2278 


LD1R 


751 


CP 


B 


1260 


DEC 


1778 


LD 


C,L 


2288 


RET 


7¿8 


JR 


NZ.DATA3 


1278 


LD 


D,D 


1788 


LD 


C,A 


2298 DATA 13 RST 8 


778 DATA4 


LD 


A, (DE) 


1288 


LD 


B,L 


1798 


LD 


D,(HL) 


2388 


INC DE 


788 


CP 


(HL) 


1298 


LD 


B,E 


1888 


INC 


BC 


2318 


CALL 11 ¿85 


791 


JR 


NZ.DATA3 


1388 


LD 


C,A 


1818 


CP 


B 


2328 


JR C.DATA14 


888 


INC 


HL 


1318 


LD 


C,H 


1828 


CALL M, 28998 


2338 


OR B 


818 


INC 


DE 


1328 


LD 


(BC),A 


1838 


LD 


1,1 


2348 


JR Z.DATA14 


828 


DJNZ DATA4 


1338 


NOP 




1848 


LO 


D.B 


2358 


LD H,B 


831 


JR 


DATA5 


1348 


CALL N, 17411 


1858 


LD 


B,L 


2368 


LD L,C 


848 DATA 3 


INC 


HL 


1358 


LD 


B,L 


1868 


LD 


B,C 


2378 


INC HL 


858 


DJNZ DATA3 


13¿8 


LD 


C,H 


1878 


LD 


D,H 


2388 


CALL ¿518 


868 


INC 


HL 


1378 


LD 


(BC),A 


1888 


NOP 




2398 


PUSH HL 


878 


INC 


HL 


1388 


INC 


H 


1898 


ADC 


A.IFC 


2488 


CALL 11 ¿85 


888 


INC 


HL 


1398 


CALL N, 21254 


1988 


DEC 


B 


2418 


JR C, DATA] 4 


891 


JR 


DATA 2 


1488 


LD 


B,E 


1918 


LD 


D,L 


2428 


OR B 


988 DATA5 


LD 


B,(HL) 


1418 


LD 


D,D 


1928 


LD 


C,(HL) 


2438 


JR Z, DATA 14 


911 


INC 


HL 


1428 


LO 


C,A 


1938 


LD 


D,H 


2448 


LD H,B 


921 


INC 


B 


1438 


LD 


C,H 


1948 


LD 


C,C 


2458 


LD L,C 


931 


DEC 


B 


1448 


LD 


C,H 


1958 


LD 


C,H 


2468 


CALL ¿518 


941 


JR 


Z,DATA¿ 


1458 


NOP 




19¿8 


LD 


BC,¿474? 


2478 


LD D,H 


958 


PUSH HL 


14¿8 


CP 


I8D 


1978 


INC 


BC 


2488 


LD E,L 


9¿8 DATA7 


RST 


118 


1478 


LD 


B.I43 


1988 


LD 


M 


2498 


POP HL 
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2518 


PUSH HL 


251 1 


ANO A 


2521 


SBC HL.DE 


2538 


POP HL 


2548 


CALL NC.6629 


2558 


REI 


2568 0ATA14 RST 8 


2578 


ADD HL , DE 


2588 DATA 18 CALL 11685 


2598 


JR C, DATA] 5 


2688 


LD 0,6 


2618 


LO E,C 


2628 


LD A, (23624) 


2638 


RRCA 


2648 


RRCA 


2658 


RRCA 


2668 


LO C,A 


2678 


LD HL ,8 


2688 DATA24 LD A,(HL) 


2698 


AND 818 


2788 


OR C 


2711 


OUT <8FE),A 


2728 


LD B,«88 


2738 PAUSA 


DJN2 PAUSA 


2748 


INC HL 


2758 


DEC DE 


2768 


LD A,D 


2778 


OR E 


2788 


JR NZ.DATA24 


2798 


RET 


2888 0ATA15 RST 8 


2818 


LO A,(8C) 


2828 


CALL 11685 


2838 


JR C, DATAIS 


2848 


PUSH BC 


2858 


CALL 11685 


2868 


JR C , DATA 1 5 


2878 


LD ( 23296), BC 


2888 


CALL 11685 


2898 


JR C.DATA15 


2988 


LD ( 23298), BC 


2918 


CALL 11685 


2928 


JR C.DATA15 


2938 


LO H,B 


2948 


LO L,C 


2958 


POP DE 


2968 DATA 16 PUSH HL 


2978 


PUSH HL 


2988 


POP BC 


2998 


LD HL,( 23298) 


3888 


AND A 



3818 


SBC HL f BC 




3298 


POP 


HL 


3578 


JR 


2.DATA22 


3828 


POP HL 






3388 


POP 


DE 


3588 


LD 


HL, DATA 18 


3638 


RET C 






33)8 


LD1R 




3598 


DEC 


(HL) 


3848 


PUSH HL 






3326 


RET 




3688 


LD 


HL , (DATA2B ) 


3858 


PUSH DE 






3338 


LD 


A,(0ATA18) 


3616 


DEC 


HL 


3868 


CALL 949 






3348 


CP 


188 


3628 


DEC 


HL 


3678 


POP DE 






3356 


JR 


NC.DATA19 


3636 


LD 


(DATA28),HL 


3688 


POP HL 






3368 


INC 


A 


3648 


RET 




3898 


LD BC, (23296) 


3378 


LO 


(DATA18) ,A 


3658 DATA22 LD 


KL,(DATA26) 


3168 


ADD HL , BC 




3388 


LD 


HL, (23637) 


3668 


DEC 


HL 


3118 


JR DATA 16 




3398 


LD 


B , ( HL ) 


3678 


LO 


B,(HL) 


3128 DATAN CALL 11685 




3488 


INC 


HL 


3688 


DEC 


HL 


3138 


JR C.0ATA15 


3418 


LD 


C,(HL) 


3698 


LD 


C,(HL) 


3148 


El 






3428 


NOP 




3788 


CALL 11563 


3158 DATA 17 HALT 






3438 


NOP 




3711 


JP 


7783 


3168 


DEC BC 






3448 


NOP 




3728 


XOR 


A 


3178 


LD A,B 






3458 


LD 


HL,(DATA28) 


3738 DATA 19 LD 


(DATA 18), A 


3186 


OR C 






3468 


LD 


(HL),C 


3748 


LD 


HL, DATA 2 3 


3198 


JR NZ.DATA17 


3476 


INC 


HL 


3758 DATA21 LD 


(DATA28) ,HL 


3288 


RET 






3488 


LD 


(HL),B 


3761 


RET 




3218 


CALL 11685 




3498 


INC 


HL 


3778 


RST 


8 


3228 


JR C.DATA15 


3588 


LD 


(DATA28),HL 


3786 


NOP 




3238 


PUSH BC 






3516 


RET 




3798 DATA23 CALL H, DATA] 2 


3248 


CALL 11685 




3528 


LD 


A,(DATA18) 


3888 


INC 


BC 


3258 


JR C.0ATA15 


3538 


AND 


A 


3818 


ORG 


64851 


3268 


PUSH BC 






3548 


JR 


2.DATA21 


3828 DATA 18 NOP 




3278 


CALL 11685 




3558 


CALL 


11733 


3838 DATA26 JR 


N2,DATA18 


3288 


JR C, DATA 15 


3568 


AND 


A 
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mu 
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runullj Je entrenadores pjrj uhj sustitución iljve 
Ronde : fctuau lícaanc dentro a fuera del 
(errenu ik |ik*k" pjra comprobar el estilo 
ikl b.itcjdor o Ij situación «kl juego 



DISTRIBUIDO en Cataluña y Baleares por 

DISCLUB, S.A. - Balmes. 58 - BARCELONA - Tel: (93) 302 39 08 - P.V.P. 2.300 Ptas. 



50 ESPECIAL 



Para una mejor 
comprensión de los 
nemónicos utilizados por 
el Z80, os ofrecemos un 
diccionario que explica el 
significado y uso de las 
distintas instrucciones del 
lenguaje ensamblador, así 
como pequeños ejemplos 
aclaratorios. 



Conviene que antes de adentrarnos 
en él, examinemos una serie de cues- 
tiones que atañen al SPECTRUM en 
general y al código máquina en par- 
ticular, y que contribuirán a un mejor 
empleo de las posibilidades del Z80 y, 
por tanto, del SPECTRUM. 

Lo primero a considerar es el pecu- 
liar modo de trabajo del código má- 
quina, así, mientras en el BASIC las va- 
riables tienen unos cometidos concre- 
tos, en éste se opera indirectamente 
con ellas, realizándose todas las ope- 
raciones a través de registros cuya mi- 
sión es, precisamente, registrar tempo- 
ralmente un valor o un resultado pa- 
ra finalmente almacenarlo en la me- 
moria, que es la auténtica variable. 
Naturalmente, en subrutinas de pe- 
queña extensión, se pueden conside- 
rar los registros como si de auténticas 
variables se tratara. De hecho, una de 
las facilidades que permite el BASIC 
del SPECTRUM es la de retornar un 
valor desde código máquina a través 
del registro doble BC lo cual hace que 
éste pueda ser considerado en ciertas 
ocasiones como una variable. 

El número total de registros del Z80 
es de veinticuatro, siete de ellos se de- 
nominan de uso general y el resto se 
utilizan para cometidos específicos. Un 
registro puede almacenar números y 
como consta de 8 bits codificados en 
binario natural, su valor puede variar 
entre 0 y 255. Estos bits se enumeran 
del 7 al 0 siendo el bit 7 el más signifi- 
cativo o de más valor («peso» en el ar- 
got). Cuando se quiere trabajar con 
signo se utiliza el bit 7 para diferen- 
ciar los números positivos de los nega- 
tivos (si es cero el número es positivo 
y viceversa) lo que limita el rango de 
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valores desde —128 o 127. Para no 
dejarnos desamparados el Z80 permi- 
te que estos registros, denominados 
simples, se unan a otros registros for- 
mando registros dobles, de esta for- 
ma el rango de valores aumenta de 0 
a 65535 (o de -32768 a 32767 si 
operamos con signo). 

Cada registro se designa por una le- 
tra conservando su nombre incluso 
cuando se une con otro para formar 
un registro doble. Helos aquí: 

REGISTROS SIMPLES: 



DE USO 


DE USO 


GENERAL 


ESPECIFICO 


A 


F 


B 

C 


1 


D 




E 


R 


H 




L 




REGISTROS DOBLES: 


DE USO 


DE USO 


GENERAL 


ESPECIFICO 


AF 




BC 


!? 


DE 




HL 





El registro doble AF no existe como 
tal, pero ciertas instrucciones como 
PUSH, POP y EX los tratan conjunta- 
mente. Observar también que los re- 
gistros I y R no forman ningún regis- 
tro doble y que NO EXISTEN los re- 
gistros simples Ix, X, ly, Y, S o P sino 
que SIEMPRE operan en la forma IX, 
IY y SP (esto no es del todo cierto a ni- 
vel «extraoficial», pero esto ya exce- 
de la misión de este diccionario). 

El Z80 dispone a su vez de una se- 
rie de registros alternativos a los regis- 
tros A, B, C, E, H y L y se denominan: 
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REGISTROS ALTERNATIVOS 
AF' 
BC 
DE 
HL' 

Se denominan también como regis- 
tros PRIMA. Su función es preservar 
los valores de estos registros y para 
acceder a ellos existen dos instruccio- 
nes que intercambian sus valores en- 
tre sí. 

Los banderines de aviso: los 
Flags 

El Z80 dispone de un registro espe- 
cializado denominado F (también lla- 
mado «registro de estado») cuya mi- 
sión es la de almacenar varios bits de 
información de acuerdo a los resulta- 
dos de los cálculos efectuados. Cada 
bit se usa como un banderín que to- 
ma un valor de 1 ó 0 según se active 
o no y su cometido, de izquierda a de- 
recha, es como sigue: 

Flag de signo (S) - almacena el 
signo, positivo o negativo, del último 
cálculo realizado. Un resultado posi- 
tivo asignará este bit a 0, y el negati- 
vo a 1 . Un valor de cero será tomado 
también como positivo. El valor del 
flag S es siempre igual al bit más sig- 
nificativo del resultado (el bit más a la 
izquierda) pudiendo ser testado por 
instrucciones como JP P (salta sí posi- 
tivo) y JP M (salta sí negativo [menos]). 

Flag cero (Z) - si el último resul- 
tado ha sido cero el flag se activa po- 
niéndose a 1 . No debe pasársenos de- 
sapercibido que las instrucciones DEC 
y ADD para registros pares NO AFEC- 
TAN a este flag. 

No usado - este bit tiene un valor 
más o menos aleatorio. 

Half-carry (H) - Este banderín se 
activa cuando en una operación se 
produce un acarreo del BIT 3 al BIT 4, 
o, en el caso de registros pares, del bit 
11 al bit 12 y es usado internamente 
por el Z80 para instrucciones como 
DAA. No se puede testar directamen- 
te aunque es posible examinarlo usan- 
do la secuencia PUSH AF / POP BC / 
BIT 4, C y entonces mirar el flag de ce- 
ro, pero esto raramente se hace. 
NO USADO 

Flag de paridad / sobrecar- 
ga (P/V) - Cumple dos cometidos: 

1— la paridad de un resultado es 
par o impar, dependiendo del núme- 



ro de unos, o de ceros, de dicho re- 
sultado. Si la paridad es par se asig- 
na el flag a uno, y si es impar a cero. 

Las instrucciones que asigna este 
flag de acuerdo con la paridad del re- 
sultado son: 

AND r-ORr- XOR r - RL r - RLC r 
RR r - RRC r - SLA r - SRA r - SRL r 

- RLD - RRD - DAA - IN r 

2— una sobrecarga representa un 
cambio «accidental» del signo del re- 
sultado: un acarreo del bit 6 al bit 7. 
Las siguientes instrucciones asignan es- 
te flag según se produzca o no esta so- 
brecarga: 

ADD A,r - ADC A,r - ADC HL,s - SUB 
A,r - SBC A,r - SBC HL,s - CP r - NEG 

- INC r - DEC r 

Flag de resta (N) - mira simple- 
mente si la última instrucción ajecuta- 
da es una suma o una resta. Esta ins- 
trucción se usa intermitentemente por 
el Z80 para instrucciones como DAA 
y no tiene apenas interés. Se puede 
testar con PUSH y POP como con 
HALF-HARRY. 

Flag de carry (C) - detecta un 
acarreo del bit 7 al supuesto bit 8 en 
los registros simples o, en el caso de 
los registros pares, del bit 15 al su- 
puesto 16. Una operación frecuente 
suele ser la de testar un bit de un re- 
gistro moviéndolo al carry por medio 
de instrucciones de rotación o reinser- 
tar el bit «perdido» en el carry dentro 
de un registro. Este flag, ¡unto con el 
de cero, son con toda probabilidad los 
más utilizados. 

La forma en que un programa en 
código máquina posibilita la toma de 
decisiones y la correspondiente solu- 
ción estriba precisamente en el empleo 
de instrucciones que tienen en cuenta 
el estado de los flags para operar y re- 




ciben el nombre de instrucciones con- 
dicionales. Así, por ejemplo, durante 
la ejecución de un programa puede 
ser necesario que de acuerdo al resul- 
tado de una operación el programa se 
bifurque a otra dirección para lo cual 
utilizaremos instrucciones como JR Z o 
JP C, etc. También podremos efectuar 
llamadas a una subrutina (CALL Z, 
CALL P, etc.) al cumplirse ciertas con- 
diciones, retornar de ella también de 
forma condicional que determina si la 
instrucción se ejecuta o no. Estos tér- 
minos son los siguientes: 

Z si el último resultado calculado 
es cero, la instrucción se ejecu- 
ta. 

NZ la instrucción se ejecuta si el re- 
sultado no es cero. 

C se ejecuta si se ha producido un 
acarreo. 

NC se ejecuta si no se ha producido 

un acarreo. 
PE este condicional chequea el flag 

P/V (Parity/Overflow) y realiza 

dos funciones: 

— si nos referimos a lo paridad 
entonces la instrucción se ejecu- 
ta si el último resultado calcula- 
do en formato binario tiene un 
número PAR de UNOS (o de ce- 
ros) afectándole instrucciones 
como AND, OR, IN A, (C), de 
rotación, etc. 

— la denominación de sobre- 
carga (overflow) tiene a su vez 
dos formas de tratamiento: si en 
un cálculo (ADC, SBC, etc.) se 
produce un «acarreo» del bit 6 
al bit 7 (el número excede el ran- 
go positivo-negativo) entonces 
la instrucción se ejecuta. Lo mis- 
mo ocurrre pora instrucciones de 
decremento e incremento con 
registros simples. La otra forma 
se refiere a instrucciones como 
LDI, LDD, CPI, CPR, etc., en las 
que mientras el resultado (BC en 
este caso) no sea cero la instruc- 
ción se ejecuta. 

PO la instrucción se ejecuta justa- 
mente si se cumple lo contrario 
de lo dicho en PE. 

M si el último resultado calculado 
es negativo (menos) la instruc- 
ción se ejecuta. 

P si el último resultado es positivo 
la instrucción se ejecuta. 
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ADC A.r 
AOC NU 
AOO A., 

AOO MU 

AOO IX.t 
AOO IV.» 
AND r 
Bit b.r 
CALI pq 
CAU c.pq 
CCf 
CPf 



Ñ tM 



s sin prefij 



JP (MI) 

it gg 



LO 

10 A.(DE] 
LO I.A 
10 R.A 
LO A.l 
LO A.R 
LO SP.Ml 
ID Sf .IX 
LO SMY 
LOr.r 
LO 



10 ÍSl:f 



LDDR 
NEG 
NOP 
Oí r 

OUT (n).A 
OUT IQ.r 
OUTI 
OUTO 



PUSM AF 
PUSH | 
RES b. l 



RRO 

RIO 
RST 00 
RST 08 
RST 10 
RST 18 
RST 70 
RST 28 
RST 30 
RST 38 
SBC A.r 
SBC Mi.» 
SCf 
SET b.r 



LO (HU 

c 

12» 
AOO A. 



AOO K 
O 
146 

sueo 



. lOfi IMll XORA 



i iALL Hh AOC A 



L POUSM MI ANO N 



249 

LOSP. 
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ADC 



SUMA con ACARREO. Se encuentra en dos formas: 
ADC A,r y ADC HL.s. La r debe entenderse como cual- 
quiera de los registros A, B, C, D, E, H, L, un número, 
o el contenido de una dirección cuyo puntero es (HL). 
(IX + d) o (IY + d). Lo s se entiende como cualquiera de 
los registros dobles BC. DE. HL o SP. ADC A,r efectúa 
la operación A -A + r + CARRY y ADC HL.s opera en 
la formo HL - HL 4 s ♦ CARRY. Lo instrucción ADC afecto 
a todos los FLAGS. 



tim 
tru« 

dici 



Equivale al GOSUB del Basic. CALL efectúa una lla- 
mado a una SUBRUTINA especificada como uno direc- 
ción. Si, por ejemplo, queremos Homar a uno subruti- 
na que se encuentra en la dirección 25999 se escribirá 
como CALL 25000. La instrucción se ejecuta como si- 
gue: en primer lugar el microprocesador introduce en 
el STACK la dirección de retorno poro efectuar a con- 
tinuación un salto a la dirección especificada. La ins- 
trucción CALL puede, a su vez, operar de formo con- 
dicional: CALL Z. CALL NC, CALL PE. etc. 



ADD 



SUMA. Esta operación se efectúa sin incluir el aca- 
rreo y se presento en las formas ADD A.r, ADD HL.s, 
ADD IX, s y ADD lY.s. La r y lo s toman idéntica forma 
que en ADC siendo diferente en el coso de IX e IY en 
las cuales HL se sustituye por IX e IY, respectivamente. 
La forma ADD A.r afecta a todos los ftags mientras que 
las otros no afectan a los Hogs S, Z y P/V. 




COMPLEMENTA el CARRY FLAG. Si Carry es cero 
cambia su valor o uno, y viceversa. 




Toma lo forma AND r (entendido como A AND r) 
siendo r cualquiera de los registros A, B. C. D, E. H, 
L, un numero, o el contenido de uno dirección cuyo pun- 
tero es (HL), (IX + d) o (IY + d). Conviene observar que 
esta instrucción sólo opero entre el registro A y r. 

La operación lógica AND consiste en la MULTIPLI- 
CACION BINARIA, BIT a BIT, entre el valor del regís 
tro A con el correspondiente de r quedando el resulta- 
do en A. Su lógico es 0 AND 0 - 0, 0 AND 1 = 0, 1 AND 
0 0 y AN D 1 1 . Si, por ejemplo, el valor de A es (en 
binario) de 0 110 1 100 y el de r 11 100 1 1 1 el resulta- 
do será 01100100 (ver figura 10). 

AND altera todos los flags. especialmente el de 
CARRY que siempre se pone a CERO. 



COMPARA. Toma la forma CP r y efectúa una com- 
paración, entendida como A-r, entre A y r afectando 
a TODOS los flags, pero sin alterar el valor del regis- 
tro A o de r. Lo r puede ser cuolquiero de los registros 
A, B, C, D. E. H, K, un número, o el contenido de uno 
dirección cuyo puntero es (HL), (IX * d) o (lY + d). 



COMPARA CON DECREMENTO. Esta es una poten- 
te instrucción que permite comparar el registro A con 
una tabla de datos direccionada por HL. Opera como 
sigue: primero efectúa CP (HL), seguido de DEC HL. 
seguido de DEC BC. Lo instrucción CP (HL) efectuado 
afecta UNICAMENTE (en lo que interesa de dicha ope- 
ración) al flag de CERO (Z). A su vez DEC BC afecta 
al fiog P/V ya que mientras BC no seo cero este flog 
permanecerá octivado, de esto manera, si queremos 
repetir el proceso BC veces bastará efectuar un JP PE 
a la instrucción CPD. 

Todos los flags son afectados excepto el CARRY. 




Fig. 10 



COMPARA con DECREMENTO y REPITICION. Efec- 
túo lo mismo operación que CPD excepto en que el pro- 
ceso se repite automáticamente mientras BC no sea CE- 
RO o hasta que el byte comparado seo idéntico ol re- 
gistro A. 



Esta instrucción examina el estado concreto de un bit 
de un registro o una indirección haciendo una copia 
de éste en el flag Z. Se escribe como BIT b.r donde b 
es el bit a examinar (del 0 al 7) y r puede ser uno cual- 
quiera de los registros A, B, C, D, E, H, L. o un bit del 
contenido de una dirección cuyo puntero es (HL), (IX d) 
o (IY + d). Esta instrucción oltera todos los flags excep- 
to el CARRY. 




COMPARA con INCREMENTO. Igual que CPD ex- 
cepto que HL se incremento en lugar de decrementor- 



CPIR 



COMPARA con INCREMENTO y REPETICION. Co- 
mo CPDR excepto que HL se incrementa. 
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CFfl 

COMPLEMENTA el registro A (complemento o uno). 
Efectuó el complemento bit o bit del registro A. Si un 
bit vale 0 lo pone a 1 y viceversa. 



AJUSTE DECIMAL el registro A. Esto instrucción se 
utilizo cuando se trabaja con aritmética BCD en la cual 
un byle se parte en dos NIBBLE. Cada NIBBLE consta, 
respectivamente, del bit 7 al bit 4 y del bit 3 al bit 0 . 
Se asume que cada nibble podra lomar un valor del 
0 al 9 y cualquier valor que lo exceda se tomara como 
un «acarreo». DAA se encarga, precisamente, de «ajus- 
far» el valor de los dos nibbles al formato correcto. Si 
ese produjese un «acarreo» en el nibble más significa- 
tivo (bits del 7 al 4) éste afectaría al CARRY. DAA afecta 
a todos los flags. 



EXJ 



DEC 



DECREMENTA. Tomo dos formas posibles: DEC r y 
DEC s. Su cometido es simplemente reducir en uno el 
valor de r ó s. La r se entiende como cualquiera de los 
registros A, B, C, D, E. H, L, o el contenido de una di- 
rección cuyo puntero es (HL), (IX * d) o (IY + d) y afec- 
to a todos los flags excepto al carry. Lo s se entiende 
como cualquiera de los registros BC, DE, HL, SP, IX o 
IY y NO AFECTA o NINGUN FLAG. 



DI 

DESHABILITA INTERRUPCIONES. Impide que el mi- 
croprocesador atienda a la señal INT de interrupción 
y. por lo tanto, la subrutina de interrupción. 



DJNZ 



DECREMENTA el registro B y SALT/ 
RO. Esta instrucción es porticulorment 
de corta longitud (128 bytes) y que no precisan uno re- 
petición superior o 256 (B 0). DJNZ NO AFECTA a 
¡os flags. 



HABILITA INTERRUPCIONES. Permite al micropro- 
cesador antender la señal de petición de interrupción 
y ejecutor, según el modelo de interrupción, la subruti- 
na correspondiente. 



INTERCAMBIO de REGISTROS PRIMA. Intercambia 
por sus correspondientes PRIMA los registros BC. DE 
y HL. Esto instrucción es muy interesante por la rapi- 
dez (y sencillez) de ejecución frente a instrucciones co- 
mo PUSH y POP. En el SPECTRUM el registro prima HL 
contiene la dirección de salto a una subrutina de cál- 
culo de lo ROM o través de la cual se produce el retor- 
no al sistema operativo BASIC. Si utilizamos una subru- 
tina que corrompo su valor y queremos retornar ai BA- 
SIC conviene ejecutor LD HL, 2758 hex/EXX/RET (me- 
jor que EXX/PUSH HL/.../POP HL/EXX). 



HAI 



ALTO. Esta instrucción detiene el Z80 hasta que se 
produce una señal de interrupción y ésto se acepta. En 
el caso de que estén deshabilitadas las interrupciones 
el microprocesador permanecerá detenido indefinida- 
mente (uno formo de «ponerlo en marcho», aparte el 
consabido RESET, puede ser vía NMI). 



IM 

MODO de INTERRUPCION. Esto instrucción se oplica 
a las denominadas interrupciones enmascarobles (o 
«habitables-deshobifables») y puede tomar una de los 
tres formas siguientes: 

IM 0. El microprocesador, al producirse uno señal 
de interrupción, asume que hay un periférico encorgado 
de suministrarle la INSTRUCCION de INTERRUPCION 
a través del BUS de datos. Como en el SPECTRUM no 
existe este periférico especifico, el BUS de datos (que 
trabaja con lógica inversa) contendrá 255 que es el có- 
digo de operación de lo instrucción RST 38 hex (CALL 
38 hex) efectuándose accidentalmente una Hamoda o 
dicha subrutina. Como esta subrutina es precisamente 
lo encargada de tratar la interrupción efectuando la 
lectura de teclado y el incremento de FRAMES, no tie- 
ne ninguna consecuencia oprecioble. 

IM 1 . Es el modo utilizado por el SPECTRUM. Cada 
vez que se produce una interrupción el microprocesa- 
dor ejecuto un RST 38 hex efectuándose lo lectura de 
teclado y el incremento del valor de FRAMES. 

IM 2. Podrió decirse que éste es el modo de interrup- 
ción más potente. Cuando ésta se produce, el micro- 
procesador debe tomar de la memoria dos bytes que 
van o formar precisamente la dirección de la subruti- 
na de interrupción. ¿Cómo decide la DIRECCION don- 
de se encuentran esos dos bytes?: en primer lugar asu- 
me que el byte MENOS significativo que forma esa di- 
rección va o ser suministrado por un periférico encor- 
gado de introducirlo en el BUS de datos y, como no 
existe tal periférico, este byle SIEMPRE será igual a 255. 
Para generor el byte MAS significativo de la dirección 
PUNTERO se utiliza el registro especializado I (de In- 
terrupción) de forma que la DIRECCION de lo SUBRU- 
TINA de INTERRUPCION podrió expresarse as.: 
DSI - PEEK (1*256 + 255) * 256'PEEK (1*256 ♦ 255 + 1). 



INTERCAMBIO. Hoy cinco instrucciones diferentes 
poro EX: EX, AF, AF', EX DE, HL, EX (SP), HL, EX (SP), 
IX y EX (SP), IY. Lo instrucción EX DE, HL intercombia 
el volor de DE por el de HL y viceversa Ninguna de 
estas instrucciones afecta a los flags (la instrucción EX, 
AF, AF' tomo los flogs de F' pero no los altera). 
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IN 



INPUT. Se escnbe en dos formos: IN A,(n) e IN r.(C). 
Se utiliza poro leer datos suministrados por un periféri- 
co: el teclado, un Joystick, una impresora, etc. En la 
primero forma, la n es un número comprendido entre 

9 y 255 y se refiere al byte menos significativo de lo 
dirección del periférico. La instrucción se usa asignan- 
do primeramente al registro A el byte mas significativo 
de dicha dirección y a continuación se efectúo la lectu- 
ra. Por eiemplo: si queremos leer la semifila del tecla- 
do correspondiente a los teclas 1 a 5 escribiremos: LD 
A,F7 hex/IN A, (FE hex). Esta instrucción no altera nin- 
gún flog. 

En la forma IN A.(C). la (C) se refiere a (BC). lo r 
puede ser cualquiera de los registros A, B, C, D, E, H 
o L. Poro efectuar uno lectura como en el ejemplo on- 
terior escr.binamos LD BC.F7FE hex/IN A,(C). Esta ins- 
trucción altera todos los flags excepto el corry. 

Esta instrucción es también utilizada por la ROM en 

10 subrutino de LOAD. 



IND 

INPUT con DECREMENTO. Opera en este orden: IN 
(HL), (C). seguido de DEC HL. seguido de DEC B. Alte- 
ra todos los Tlogs, excepto el corry, y especialmente el 
flog de cero que permoneceró octivo mientras B sea 
diferente de cero. 



JR 

SALTO RELATIVO. Efectúa un soltó, hacia delante o 
hacia atrás, un número especificado de bytes o partir 
de la posición del registro PC (el Contador de Progra- 
ma cuando lee una instrucción se sitúa |ustamente al 
principio de lo siguiente ANTES de ejecutar dicha ins- 
trucción). Esto instrucción puede ejecutarse de formo 
condicionol, pero únicamente paro los Hogs de CERO 
y CARRY. 



LD 

CARGA. Es el equivalente al LET del BASIC permi- 
tiendo la asignación de valores o registros, lo carga de 
un registro en otro, la corga del contenido de uno di- 
rección en un registro y viceversa, etc. Es, precisamen- 
te, la instrucción más utilizada. 




LDD 



CARGA con DECREMENTO. Opero por orden co- 
mo LD (DE). (HL) (entendido como POKE DE, PEEK HL) 
seguido de DEC HL, DEC DE y DEC BC. Esto instruc- 
ción altera el flog P/V que permoneceró octivo mien- 
tras BC no seo cero. 



INDR 



INPUT >n DECREMENTO y REPETICION Opera 
como IND repitiéndose el proceso mientras B no sea 



LDDR 



CARGA con DECREMENTO y REPETICION. Como 
LDD repitiéndose el proceso automáticamente mientras 
BC no sea cero. Esto instrucción, junto con LDIR, es pro- 
bablemente lo más potente del Z80 ulizóndose para 
mover grandes bloques de datos de forma automáti- 
co, efectuar un CLS o un SROLL. 



con INCREMENTO. Como IND excepto que 
cremento. 



CARGA con INCREMENTO Como LDD excepto q 
y DE se incrementan. 



INPUT con INCREMENTO y REPETICION. Como 
INI, repitiéndose .el proceso mientros B no seo cero. 



SALTO a uno dirección. Toma las formos JP n y JP 
s donde n es un número que especifico la dirección de 
salto pudiendo efectuarse éste de forma condicional. 

Por s se puede utilizar uno de los registros HL, IX o 
IY efectuando el microprocesador un «soltó» o la direc- 
ción que forma el valor de uno de estos registros. Esto 
formo de salto es incondicional. 



LDIR 



CARGA con INCREMENTO y REPETICION. Como 
LDI repitiéndose el proceso mientras BC no sea cero. 



NEG 




NEGACION. Inviene el signo del registro A (com- 
plemento a dos) y altera todos los flags. Si A vale uno, 
entonces NEG cambia su volor a menos uno (FF hex). 
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NOP 



NO OPERACION. El registro PC (contador de pro- 
gramo) avanza hasta la próxima instrucción. Se suele 
usar como retordo o con objeto de ser reescrito mas 



En la forma OR r (entendida como A OR r) donde 
r puede ser cualquiera de los registros A, B, C, D, E. 
H, L, un número o el contenido de una dirección cuyo 
puntero es (HL). (IX ♦ d) o (IY + d). Efectúa, bit a bit, la 
función lógico OR en la que 0 OR 0 0 . 1 OR 0 = 1 , 
0 OR 1 -1 y 1 OR 1 = 1. Asi. si A- 10011011 y 
r 00011000 el resultado será 10011011 (ver figu- 
ra 11). Esta instrucción afecta a todos los flags espe- 
cialmente al CARRY que se pone SIEMPRE A CERO. 



OUTPUT. Efectúa la operación inversa o lo instruc- 
c.on IN tomando los formos OUT (n), A y OUT (C). r 
donde n y r son idénticas o los explicadas pora IN. En 
la forma OUT (n), A no se especifico el byte mós signi- 
ficativo. Lo ROM utiliza OUT en rutinas como SAVE y 
BEEP. 



OUTI 



OUTPUT con DECREMENTO. Efectúo OUT (C). (HL) 
seguido de DEC HL y DEC B. El flog de carry perma- 
nece inolterodo siendo afectado el de cero de acuer- 
do al valor final de B. 



OUTPUT con DECREMENTO y REPETICION. Como 
OUTD, repitiéndose el proceso mientras B no sea ce- 



OUTI 



OUTPUT con INCREMENTO. Como OUTD excepto 
que HL se incremento. 



OTIR 



OUTPUT con INCREMENTO y REPETICION. Como 
OUTI repitiéndose el proceso mientras B no sea cero. 



POP 



EXTRAER. En la forma POP AF y POP s donde s pue- 
de ser BC. DE, HL, IX o IY. Si efectuamos POP BC el 
efecto será come LD C,(SP)/INC SP/LD B.(SP)/INC SP. 
Excepto en el caso de POP AF (que recupero los flags) 
esto instrucción de|o los flogs inalterados. 



PUSH 

INTRODUCIR. Opera en modo inverso a la instruc- 
ción POP Si efectuamos PUSH BC el efecto seno DEC 
SP/LD (SP).B/DEC SP/LD (SP).C. Esta instrucción no al- 
tera ningún flog. 



RES 



RESET bit. En la forma RES b, r donde b es un bit del 
0 al 7 y r cualquiera de los registros A, B, C, D, E, H, 
L, un numero, o el contenido de uno dirección cuyo pun- 
tero es (HL), (IX ♦ d) o (IY + d). Esta instrucción pone a 
CERO el bit especificado sin alterar ningún flog. 



RETORNA de la subrutina. Equivale al RETURN del 
BASIC pudiendo efectuarse de tormo condicional. Es- 
to instrucción tomo del STACK la dirección de retorno 
de la subrutina y finalmente salta a dicha dirección. 



RETI 

RETORNA de lo INTERRUPCION enmascarable. 
Opero como sigue: antes de retornar espera hasta el 
siguiente pulso de interrupción con objeto de evitar la 
recursividad, luego habilita los interrupciones (el micro- 
procesador los deshabilita automáticamente) y por úl- 
timo, tomo lo dirección de retorno del STACK efectuan- 
do un salto a dicha dirección. 



RETN 




RETORNA de la SUBRUTINA de INTERRUPCION 
NO ENMASCARABLE. Cuando llega un pulso de se 
ñal a lo patilla NMI (petición de Interrupción No en 
Mascaroble) del microprocesador éste efectúa un RST 
66 hex inmediatamente ya que este modo de interrup- 
ción tiene PRIORIDAD ABSOLUTA y no existe pora ella 
instrucción de deshabilitación. Antes de efectuar esta 
llamada el microprocesador almacena en un flip-flop 
interno el estodo de las interrupciones (habilitadas o no), 
o continuación las deshabilita, almacena en el STACK 
la dirección de retorno y por último, salta a la direc- 
ción 66 hex. Cuando se ejecuto lo instrucción RETN el 
microprocesador repone el estodo de los interrupcio- 
nes, tomo del STACK la dirección de retorno y finalmen- 
te salta a esta dirección. 



RLA 



ROTACION o lo IZQUIERDA del ACUMULADOR a 
través del carry. Como puede observarse en la figura 
1 coda uno de los bits de A es movido uno posición o 
la izquierdo, pasando el bit 7 ol CARRY y el volor ini- 
cial de éste al bit 0 de A. Esta instrucción ofecto único- 
mente al CARRY y sólo preciso un byte. 



Fig. 1 



PL & PLH 



ÉH 



7<-j-6<-¡--5<j-A< j-3<j-2< j-Kj-gj ^ 1 
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RL 

ROTACION a la IZQUIERDA o trové» del carry. To- 
ma la forma RL r donde r puede ser cualquiera de los 
registros A, B, C, D, E, H, L, o el contenido de una di- 
rección cuyo puntero es (HL) , (IX + d) o (IY + d). Efec- 
túa la misma operación que RLA con la diferencia de 
que afecta a TODOS los flags y precisa de dos o tres 
bytes (según sea r) empleando, mínimo, el doble de ci- 
clos de operoción. Puede observarse esquemáticamente 
su funcionamiento en la figura 1 . 



RRA 



Como RLA excepto que la rotación se produce a la 
derecha en lugar de o lo izquierda (figura 4). 



Fig. 4 



| 7 .1» 6 .1, 5 .¿» 4 . i 



RLCA 



ROTACION CIRCULAR a la IZQUIERDA del ACU- 
MULADOR. En la figura 2 se observa su funcionamien- 
to. Coda uno de los D¡ts de A se desplaza en forma cir- 
cular hacia la izquierda posando uno copia del bit 7 
al bit 0 y otra al carry. Esta instrucción afecta sólo al 
flog CARRY. 




Como RL excepto que la rotación se produce o la de- 
recha en lugar de a la izquierda (figuro 4). 



ROTACION CIRCULAR a lo IZQUIERDA. Toma lo 
forma RLC r donde r es idéntica que para RLA. Opera 
de igual forma que RLCA referido a r. 



Fig. 2 



RLC 4 RLCR 



Como RLCA excepto que lo rotación se produce ha- 
cia lo derecha en lugar de a la izquierda (figura 5). 



Fig. 5 



RRC & RRCA 



'"L 



III 



3ENE 



ROTACION a la IZQUIERDA de DOS DIGITOS BCD. 
Esta instrucción se utiliza en aritmético BCD y opero de 
forma especiol yo que no se produce uno rotación pro- 
piamente dicho sino un desplazamiento. El contenido 
de la dirección cuyo puntero es (HL) se trato como dos 
NIBBLE (figuro 3). El nibble MENOS significativo de 
(HL) paso a la posición del nibble MAS signficatio de 
(HL). A su vez el nibble MAS significativo de (HL) pasa 
al nibble MENOS significativo del REGISTRO A. El nib- 
ble MENOS significativo de A posa ol nibble MENOS 
significativo de (HL). 

RLD 

Fig. 3 i 
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Como RLC excepto que lo rotación se produce hacia 
la derecha en lugar de a lo izquierda (figura 5) 



:io j 



RRD 



ROTACION DERECHA de DOS DIGITOS BCD. El nib- 
ble MAS significativo de (HL) pasa al MENOS signifi- 
calvo de (HL) y éste a su vez al MENOS significativo 
del REGISTRO A. El nibble MENOS significativo de A 
poso ol MAS significativo de (HL) (ver figura 6). 



Fig. 6 



fi 7 6 5 4. 3 2 1 



3 



(HL) 7 6 5 4.13 2 1 0 
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RST 



RESTART. Produce el mismo efecto que lo instrucción 
CALI con dos diferencias: sólo es posible ejecutor esta 
instrucción para OCHO posibles direcciones (en hex): 
0. 8. 10. 18. 20. 28, 30 ó 38 siendo esta llamada IN- 
CONDICIONAL. 



SBC 



RESTA con ACARREO. Opera en dos formas: SBC A. 
r y SBC HL.s donde r y s toman la misma forma que 
para ADC. Esta instrucción afecta a todos los fiags. 



SUB 



RESTA. Tomo la única forma SUB r (se entiende co- 
mo SUB A.r) ya que SOLO EXISTE PARA REGISTROS 
SIMPLES. La r se entiende como cualquiera de los re- 
gistros A. B, C, D, E, H, L. un número, o como el con- 
tenido de una dirección cuyo puntero es (HL), (IX ♦ d) 
o (IY + d). Opera como A-A— r y altera TODOS los 
Hags. Si quisiéramos efecturar una resta SIN acarreo 
para registros dobles deberíamos usar lo secuencia 
AND A (u OR A)/SBC HL.s. La instrucción AND a (u 
OR A) no afecta al registro A pero pone el corry o ce- 



SET 



ASIGNA. Toma la formo SET b.r donde b y r son idén- 
ticos o la instrucción RES. SET pone a UNO el bit espe 
cificado de r. 



OR EXCLUSIVA. Tomo la formo XOR r (entendido co- 
mo A XOR r) donde r es idéntica a la explicada poro 
AND y OR. Efectúo lo función OR exclusiva, bit a bit, 
del registro A con r en lo que 0 XOR 0 0.1 XOR 0 1 . 
0 XOR 1-1 y 1 XOR 1=0. Si por ejemplo 
A 11000011 y r 00110011 el resultado sera 
11110000 (ver ejemplo f.g. 12). 



DESPLAZAMIENTO ARITMETICO a la IZQUIERDA. 
Tomo lo forma SLA r donde r se escribe como en las 
instrucciones de rotación ya descritas. Los bits de r se 
desplazan uno posición o la izquierda, el bit 7 pasa al 
CARRY y el BIT 0 se pone a CERO (figuro 7). Altera 
todos los fiags. 



Fig. 1 1 



OR 



Fig. 7 SLR 
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DESPLAZAMIENTO ARITMETICO o la DERECHA. Se 
escribe como SRA r donde r es la forma ya menciona- 
do. Los bits de r se desplozon a lo derecha, el bit 0 pa 
so al CARRY permaneciendo el bit 7 inalterado (fi- 
gura 8). Altera todos los Hags. 



Fig. 8 



SRR 



Fig. 12 



DESPLAZAMIENTO LOGICO a la DERECHA. Se es- 
cribe como SRL r donde r es la forma ya mencionada. 
Los bits de t se desplazan a la derecha, el bit 0 pasa 
al CARRY y el bit 7 se ponde a CERO (figuro 9). Altera 
todos los Hags. 



Fig. 9 



SRL 
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de 



Un procesador de 
textos es, sin duda, la 
mejor herramienta de 
trabajo que un escritor 
puede usar. La prueba 
reside en que un 95 
por ciento de los 
escritos que tenéis 
ocasión de leer están 
confeccionados con 
uno de estos 
maravillosos 
programas. 



Cuando decidimos realizar un 
análisis de los procesadores 
de texto existentes para el 
Spectrum nos encontramos 
ante una caótica situación: por una 
parte existen varios (Context v2, Tas- 
word two, Context vó y Context v.8, 
por mencionar alalinos) que son dis- 
tintos, no cabe duda, pero distintos só- 
lo en el listado Basic que incorporan 
y que se encarga de manejar las me- 
morias externas y la impresora. La 
parte CM del programa y, por lo tan- 
• to, lo referente a las cualidades que 
tenga el mismo en lo que concierne a 
la escritura de un texto, formateado 
de pantalla, distintos comandos etc, 
son prácticamente iguales en éstos. 
Por otra parte, recientemente ha sa- 




MICROHOBBY ESPECIAL 



Procesadores de TEXTOS 61 



lido al mercado un procesador de tex- 
tos, The last Word (la última palabra), 
que es la nueva concepción por lo que 
es completamente distinto a los que 
hasta ahora disponíamos. Esto nos ha 
llevado a comentar nada más que' 
dos programas: por una parte el 
Context v.8 que incorpora las má- 
ximas novedades en los de «antigua» 
concepción. Y por otra parte el Last 
Word/ que como hemos dicho, es to- 
talmente distinto a éstos. 

The last word 



Este procesador de textos se puede 
considerar que tiene dos puntos que 
lo destacan de los demás: por uno 
parte uno gran sencillez de ma- 
nejo, ya que todas las órdenes que 
se le pueden dar se introducen con la 
sola pulsación de una o dos teclas. Por 
otra parte, el procesador entero está 
escrito en CM y en el extenso manual 
de instrucciones se da todo tipo de in- 
formación detallada no sólo sobre la 
manera de manejarlo sino sobre él 
mismo a nivel variables de programa, 
rutinas y demás. Esto, unido a que es 
el único programa que conocemos 
que es capaz de manejar todo tipo de 
interfaces de memorias de 
masa habidos y por haber, hace 
pensar que The last word es un pro- 
grama diseñado por uno empresa se- 
ria preocupada por el usuario. 

A nivel general trabaja con la pan- 
talla dividida en dos trozos altamente 
diferenciados: tres líneas de la parte 
superior destinadas a contener la in- 
formación del estado en que se en- 
cuentre el programa y las 20 líneas in- 
feriores que contienen el texto propia- 
mente dicho. En la parte superior de 
estas 20 líneas de texto se abrirá una 
ventana blanca, cuando sea oportu- 
no para que podamos introducir la in- 
formación que sea necesaria para al- 
guno de los comandos de que dispo- 
ne el programa. 

La zona de textos 



El texto es muy cómodo de entrar, 
es decir, por muy deprisa que teclee- 
mos el programo nos sigue sin perder 



ni una sola tecla ya que una caracte- 
rística muy aguda del mismo es que 
dispone de un «buffer» de 21 letras en 
el que almacenará las pulsaciones que 
demos en el teclado si éstas no pue- 
den ser atendidas en ese momento, es- 
ta cualidad hace las delicias de los me- 
canógrafos habilidosos que en un mo- 
mento dado son capaces de alcanzar 
una alta velocidad en el teclado. 

En esta zona de textos, aparte de 
presentarse él mismo, se nos manten- 
drá informado, en la última columna 
de la derecha, del estado de las dis- 
tintas líneas. Es decir, podrán estar tres 
tipos de símbolos distintos: 

— Una «C» invertida, que quiere 
decir que esta linea de texto está ter- 
minada con la pulasación de la tecla 
«Enter». Esto se indica asi, ya que en 
la zona de memoria destinada al tex- 
to, que por cierto es bastante amplia 
(26 K), no se codifican los espacios 
que dejemos, y de igual forma sólo se 
pondrá el carácter de «Enter», o retor- 
no de carro, cuando la misma tecla 
sea pulsada. 

— Una flecha inclinada hacia aba- 
jo, que quiere decir que la línea es nor- 
mal y corriente. 

— Lo misma «C» invertida de antes 
pero con un subrayado, que nos quie- 
re decir que en una línea en la que só- 
lo está introducido el carácter «Enter» 
se han metido también tokens o códi- 
gos de control de la impresora, estos 
últimos no ocupan ningún espacio en 
el texto a la hora de presentarlo en la 
pantalla. 

En esta zona de texto también va, 
como arriba hemos comentado, lo 
ventana de información que necesitan 
algunos comandos. Cuando invoque- 
mos alguno de los mismos, el texto se 
escrolará hacia abajo tantas líneas co- 
mo sea necesario y aparecerá esta 
ventana. En este momento dejaremos 
de tener control sobre el texto propia- 
mente dicho y sólo podremos actuar 
sobre el comando en sí. 

La zona de textos se puede presen- 
tar en lo pantalla del ordenador en un 
formato variable de 40, 48, 60 u 80 
columnas, aunque esta última for- 
ma no será muy legible a no ser que 
dispongamos de un monitor de alta re- 
solución. 

Aunque tengamos un formato de 
pantalla determinado podemos traba- 



jar con todas las columnas de texto 
que precisemos, hasta 148/ con lo 
cual conseguimos hacer textos aptos 
para impresoras de alto calibre. Si te- 
nemos unas columnas de texto moyo- 
res en número o los columnas de pan- 
talla, el texto no se justificará ni se en- 
rollará hasta que no lleguemos a la úl- 
tima columna de texto presentándose 
la información de la línea y columna 
en la porte superior de la pantalla 
acorde a esta circunstancio. Es decir, 
que si estamos escribiendo un texto de 
100 columnas, por ejemplo, y el for- 
mateado de pantalla lo tenemos pues- 
to sólo a 40, cada línea de texto ocu- 
pará 2 líneas y 20 caracteres de pan- 
talla. Por supuesto, podemos escribir 
un escrito a un número determinado 
de columnas de impresora y luego mo- 
dificar el mismo con uno orden para 
otro número distinto, y ésta es una de 
las mayores ventajas de este procesa- 
dor. Este articulo, por ejemplo, está 
siendo escrito a 40 columnas de pan- 
talla y de impresora por comodidad, 
pero luego a la hora de imprimirlo se 
pondrá a 60 o las que hagan falta. 

La ventana 
!■ iiv- i superior 

Las tres líneas de arriba de la pan- 
talla contienen, como arriba hemos 
comentado, información referente al 
estado en que se halla el programa y 
el texto que estamos escribiendo: 

— Por uno parte, la línea y colum- 
na donde se encuentra el cursor de 
texto y el espacio de memoria libre 
que nos queda en K's. 

— Luego, ya en el centro, el núme- 
ro de columnas en que está la presen- 
tación así como un switch o bandera 
que indica si tenemos activado los 
marcadores de final de línea o no, el 
número de espacios del tabulador, 
que también tiene, y si estamos en ma- 
yúsculas o minúsculas, así como si el 
programa está esperando texto o un 
comando. 

— En el centro derecha, se hallan 
los márgenes derecho e izquierdo del 
texto, éstos podrán ser un número 
cualquiera entre el 1 y el 148. 

— Por último, a mono derecha se 
encuentran tres apartados: el prime- 
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ro nos dice si tenemos activado la de- 
tección de final de línea según escri- 
bamos o no. El segundo nos indica si 
nos hayamos escribiendo un texto o in- 
sertándolo en medio de otro más 
grande y el tercero y último nos dice 
si deseamos justificar la línea, o enro- 
llarla como se dice en el Context, o 
por el contrario sólo separar la última 
palabra. 

Hay que hacer una aclaración pa- 
ra los neófitos: justificar una línea sig- 
nifica separar todas las palabras de la 
misma proporcionalmente al espacio 
que ocupen para que el aspecto del 
texto sea más profesional. 

Los comandos 



Hay dos formas de introducir los dis- 
tintos comandos de que dispone el 
procesador de textos: por una parte 
con la pulsación conjunta de la tecla 
CAPS o SIMBOL junto con la del co- 
mando. Por otra parte activando el 
modo extendido con CAPS + SYM- 
BOL y luego la tecla del comando o 
bien pulsada sola, o bien junto con 
SYMBOL. Toda la información, la de 
todos los comandos que hay, y las te- 
clas necesarias para invocarlos se pre- 
senta en pantalla usando la orden 
HELP con extendido + H. 

Los órdenes se pueden clasificar en 
5 grandes grupos según lo que hagan: 

— Movimiento del cursor. El 
cursor de texto se puede mover por el 
mismo de muy distintas formas. Con 
las flechas del cursor y se mueve, ló- 
gicamente, en las cuatro direcciones 
posibles, eso sí, no podremos despla- 
zarlo por el sitio donde no haya texto 
ya que los espacios vacíos no están en 
la memoria. 

Por otra parte, también se puede 
mover por palabras hacia un lado o 
el otro, y en pasos fijos según tenga- 
mos programado el fabulador. Una 
forma de moverlo muy interesante, es 
desplazarlo con una orden determina- 
da hasta el próximo párrafo, lo que 
nos servirá para reparar el texto si he- 
mos cambiado el número de columnas 
del mismo. Se puede ir, de igual for- 
ma, hasta una línea determinada con 
el consiguiente comando. Por último, 
también se puede mover por páginas 
hacia arriba o hacia abajo así como 



al principio o al final del escrito. 

— Manejo del texto. Dentro de 
este párrafo están los comandos pa- 
ra borrado de textos. Esta operación 
se puede hacer de todas formas ima- 
ginables: borrar un carácter, una lí- 
nea, hasta el final de un párrafo, en- 
tre dos líneas determinadas, y todo el 
texto completo, por supuesto. De igual 
forma, en este apartado nos encontra- 
mos con comandos que sirven para 
justificar o desjustificar la línea en la 
que se encuentre el cursor y una faci- 
lidad muy interesante para reparar el 
texto hasta el próximo párrafo. Con 
este comando y el que sirve para 
avanzar de párrafo en párrafo nos 
podemos cambiar las columnas de im- 
presora del escrito completo en un 
abrir y cerrar de ojos. 

Un par de facilidades más que se 
pueden encontrar en este apartado 
son: una orden para buscar y/o cam- 
biar palabras dentro del texto y otra 
paro centrar cabecera. 

— Comandos denominados 
de utilidades. Aquí nos podemos 
encontrar con el grueso de las fuerzas, 
en este caso el bloque de comandos 
hacen operaciones muy generales so- 
bre el texto. Por una parte están los 
órdenes para cambiar el estado de to- 
dos los marcadores de la parte supe- 
rior de la pantalla (número de colum- 
nas en pantalla, en impresora, saltos 
del tabulador, justificación y enrolle de 
líneas, etc.). Por otra parte existen ór- 
denes, dentro de este bloque, para 
cambiar los colores con los que que- 
remos trabajar para adecuar el pro- 
grama al gusto de cada uno. The last 
word, además de ser un procesador 
de textos, dispone de una calculado- 
ra totalmente completa con toda la 
potencia del Basic que sirve para efec- 
tuar cálculos complejos y almacenar 
los resultados en unas memorias asi 
como usarlos en el texto que estemos 
escribiendo. Esto, que puede parecer 
de dudosa utilidad al principio, resul- 
ta luego muy interesante cuando pre- 
cisemos introducir números en el tex- 
to productos de algún cálculo. 

Por último, dentro de este bloque se 
puede destacar una orden para pro- 
gramar una alarma que nos avisará 
cada cierto tiempo al objeto de que re- 
fresquemos el backup del texto que 
tengamos en el disco u otra memoria 
de masa. 



— El cuarto bloque de co- 
mandos incorpora todo lo re- 
ferente a la impresora. Por cier- 
to..., es de destacar el que el progra- 
ma esté inicialmente preparado sólo 
para el ¡nterface de impresora Kemp- 
ston E, y aunque no nos ha resultado 
difícil adaptarlo para el de Indescomp 
Centronics, sí puede resultar imposible 
para un usuario no avezado en cono- 
cimientos de CM. De todos formas, en 
el manual se da una información pa- 
ra adaptarlo a cualquier impresora 
pero que no resulta suficientemente 
clara. 

Como decíamos, en este bloque se 
hallan tres órdenes pora el manejo 
de la impresora, cosa ésta funda- 
mental en un procesador de textos. El 
primero es, lógicamente, el que nos 
permite imprimir un texto en nuestra 
impresora, se pueden dar la primera 
línea, la última a imprimir, el espacia- 
do entre líneas así como el número de 
copias a sacar. 

El segundo nos informa sobre cómo 
están programados los distintos códi- 
gos de control de la impresora, el pro- 
grama dispone de 24 que inicalmente 
están previstos para una impresora 
EPSON RX-80, aunque una de las 
primeras cosas que deberemos de ha- 
cer con el procesador es programar 
estos tokens para nuestra impresora 
antes de sacar la copia de seguridad. 

El tercer comando es una guía de la 
impresora que nos permite cambiar la 
dirección de la rutina de impresión así 
como los códigos de Enter y Retorno 
de corro. 

— Ya en el último bloque nos 
encontramos con todas las ór- 
denes necesarias para mane- 
jar las memorias de masa. Se 
puede grabar un texto, lógicamente, 
especificando de qué linea a qué línea 
se quiere grabar. Lo podemos cargar 
también, aunque no es una cargo pro- 
piamente dicha, sino una mezcla al fi- 
nal del texto que tengamos en memo- 
ria. Si deseáramos cargarlo limpia- 
mente tendríamos que borrar la me- 
moria con la orden ZAP. 

Tres órdenes quedan para los usua- 
rios de memorias de masa distintas al 
cassette: sacar un catálogo del disco, 
erasear un fichero y formatear un dis- 
co. 
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Resumiendo 

Por muy poco dinero disponemos 
de un paquete de manejos de textos 
que resulta innovador en su técni- 
ca y sencillo en su manejo, aunque no 
hay que descontar que es nuevo en el 
mercado, por lo que pueda resultar 
que tenga algún bug importante. De 
todas formas, no hemos detectado na- 
da raro. 

Context v.8 

Si hay algún programa que se pue- 
da considerar veterano en el Spectrum 
ése es el Context v.8 y toda su larga 
saga de predecesores. Esto nos da 
una enorme garantía de funciona- 
miento al haberse hecho multitud de 
versiones depuradas, optimizadas y 
ampliadas del mismo programa. 
Aparte de esto es, quizás, el progra- 
ma más conocido, como utilidad, pa- 
ra este ordenador. 

Context v.8 es un procesador de tex- 
tos, último por ahora de su estirpe, 
que , uniendo una facilidad de mane- 
jo grande con una performance ade- 
cuada al Spectrum nos lleva al equili- 
brio entre lo sofisticado y lo senci- 
llo en un procesador de textos. 

Como al principio de este articulo se 
comentó, el programa se divide en dos 
partes: el CM, que asume todo el blo- 
que de funciones de manejo del texto 
y demás rutinas que han permaneci- 
do prácticamente invariables y el Ba- 
sic, que contiene todo lo referente al 
manejo de memorias externas e im- 
presora y, en esta última versión, 
también un par de opciones de fiche- 
ro que luego se comentarán. 

El formateado en pantalla a la ho- 
ra de escribir el texto está invariable- 
mente en 64 columnas fruto del com- 
promiso entre lo fucional y lo cómodo 
de usar. Sólo cambiará a las 32 nor- 
males del Spectrum cuando salgamos 
al menú principal por medio del uso 
de la función STOP. Hablando ya de 
este menú el mismo dispone de 9 op- 
ciones y es una buena idea el comen- 
zar por ahí. 

El menú principal 

La primera opción, Texto, es, co- 
mo su nombre indica, para retornar al 



editor de texto y poder hacer modifi- 
caciones en el mismo. 

La segunda, impresora, sirve pa- 
ra imprimir el texto en una impresora 
grande. Primero nos preguntará la 
primera línea que queremos imprimir 
y luego, la última para, acto seguido, 
pasar a la impresión del texto. Des- 
pués retornará automáticamente a es- 
te menú principal. 

La tercera opción, memorias ex- 
ternas, nos lleva a un segundo me- 
nú con las opciones de salvado, car- 
gado y eroseado del fichero de texto 
tanto en cassette como en microdrive. 

La cuarta opción, ficheros, nos lle- 
va a la impresión del texto con fichas. 
Esto es conveniente explicarlo más de- 
talladamente: 

Hay que tener en cuenta que el ar- 
chivo de texto consta de 320 líneas de 
64 carácteres y nosotros, con la op- 
ción de impresora, podemos imprimir 
un trozo cualquiera de un texto. Pero 
nos puede interesar tener, dentro del 
texto, un sitio en el cual, en el momen- 
to de la impresión introduzcamos esa 
ficha, pues bien, esta opción incluye la 
impresión con ficheros. Lo primero que 
tendremos que hacer será crear la o 
las fichas, para lo cual al final del tex- 
to que queramos imprimir escribiremos 
la misma entre dos corchetes (( y J). 
Luego, en los sitios donde queramos 
poner estas fichas, situaremos el cará- 
cer gráfico cuyo código ASCII es el 
143 y por último, podemos imprimir el 
texto con la opción 4 del menú princi- 
pal. 

La siguiente opción, la 5, es la crea- 
ción de cartas personalizadas y 

la usaremos cuando precisemos impri- 
mir textos en los que haya nombres o 
direcciones que varíen. Para esto só- 
lo tenemos que elegir esta opción del 
menú principal y escribir el texto, pe- 
ro en los sitios donde vayan los nom- 
bres o direcciones situaremos un nú- 
mero entre corchetes (( y ]). En el mo- 
mento en que terminemos de escribir 
el texto el ordenador nos preguntará 
los párrafos que tiene que asignar a 
estos corchetes y procederá a impri- 
mir el texto. Luego nos interrogará so- 
bre si deseamos repetir la operación 
y lo volverá a hacer si osí lo deseamos. 

La sexta opción, sustitución de 
CHR$, nos sirve para cambiar un AS- 
CII de todo el texto por otro distinto. 
Esto lo utilizaremos cuando nuestra im- 
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presora tenga unos códigos para la ñ, 
por ejemplo, distintos a los que tiene 
el programa. 

El procesador de textos tiene dos 
páginas de ayuda que se consiguen 
pulsando «Edit» estando en el modo 
editor, pues bien, una de estas pági- 
nas tiene la información referente a la 
impresora y si deseamos combiarla 
habremos de usar la opción 7 del me- 
nú principal, modificación de la 
información. 

Las últimas dos opciones del menú 
principal son referentes a la impreso- 
ra: la octava, margen izquierdo, 
sirve para fijar el margen izquierdo, 
valga la redundancia, que queramos 
cuando vayamos a imprimir el texto. 
Y la última, cambio de interface, 
se utiliza para seleccionar el interface 
de impresora que tengamos de entre 
un total de 4 que es capaz de mane- 
jar el programa. 



Una vez que entremos en el editor 
de texto con la opción 1 del menú prin- 
cipal, dispondremos del escrito que es- 
tuviéramos confeccionando en la pan- ■ 
talla y el cursor al comienzo del mis- | 
mo. En este momento podemos seguir 
escribiendo texto o introducir algún 
comando del editor de un modo igual 
o parecido al que tiene The Last Word: 
algunas órdenes se dictarán con la 
pulsación de una tecla junto con 
CAPS O SYMBOL y en otras se ha- 
brá de poner el proqrama previamen- 
te en modo extendido con el uso de es- 
tas dos teclas. 

Al igual que con The Last Word dis- 
ponemos de un amplio muestrario de 
órdenes y comando de ayuda para 
confeccionar un texto: 

— Por una parte el cursor se pue- 
de mover en las cuatro direcciones po- 
sibles con el uso de las flechas del cur- 
sor, aunque esta vez lo podremos mo- 
ver también por debajo del final de 
texto ya que el Context v.8 codifica 
también los espacios en memoria. El 
cursor igualmente se puede mover de 

Ralabra en palabra, hacia delante o 
acia atrás. 

— También podemos movernos de 
pantalla en pantalla de texto para 
leerlo cómodamente así como llevar el 




cursor al final o al principio del escri- 
to. Si leyendo el texto viéramos que se 
nos ha olvidado una palabra la pode- 
mos insertar con la orden AND que 
nos abre una línea de texto a partir del 
cursor. Si fuera más de una palabra 
activaríamos el modo de insercción 
con lo cual según fuéramos escribien- 
do texto la ventana se iría ampliando. 
Para arreglar el desaguisado que hu- 
biéramos ocasionado usaríamos la or- 
den STEP que arregla un párrafo de 
texto. De igual manera también pode- 
mos borrar líneas completas con la or- 
den NOT. 

— Para poner cabeceras existe un 
comando que centra textos en la pan- 
falla automáticamente aunque luego 
podemos correr la línea completa ha- 
cia la izquierda o la derecha usando 
otras dos órdenes. 

— Al igual que The Last Word y co- 
mo todo buen procesador de textos 
que se precie, dispone de una detec- 
ción automática de final de línea se- 
gún tecleamos que podemos inhibir o 
desconectar y de una justificación 
automática de la línea o no. 

— Unos comandos muy interesan- 
tes que posee el Context y que le fal- 
tan al Last Word, son los referentes al 
manejo de bloques: se pueden marcar 
principio y final de bloque con sendas 
órdenes y luego mover o copiar este 
bloque en otra parte del texto. 

— Por último, sólo destacar un par 
de cosas: que si nos resulta más cómo- 
do trabajar en 32 columnas lo po- 
demos hacer con este procesador de 
texto sin perder la profesionalidad del 
texto a 64 ya que la pantalla ocupará 
nada más que una porción del texto 
que se irá scrolando horizontalmente, 
según escribimos. La otra es que tam- 
bién dispone de comandos para bus- 
car y sustituir palabras por otras dis- 
tintas. 



Resumiendo 



Como veis las ventajas de ambos 
procesadores son grandes y parecidas 
por lo que puede resultar un poco di- 
fícil al principio decidirse por alguno 
en particular, aunque, prácticamente 
cualquiera de los dos puede valer pa- 
ra una pequeña aplicación que preci- 
se un usuario de Spectrum. 
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Desde que los bits de datos infor- 
matizados reemplazan al papel 
como medio más importante 
para almacenar grandes cantidades 
de datos e información, nuestra socie- 
dad está presenciando el advenimien- 
to de una nueva raza de delincuentes. 

Popularmente conocidos como los 
ladrones tecno, los protagonistas del 
delito informático desafian cualquier 
tipo de clasificación. 

Su procedencia, localizada en cual- 
quier profesión u ocupación, y los mé- 
todos utilizados en su nuevo campo de 
acción, son tan diversos como nume- 
rosos, y en la mayoria de los casos tan 
eficaces, que resulta difícil su deten- 
ción. 

Los requisitos mínimos para ser uno 
de esos tecnodelincuentes, se limitan 
a un conocimiento rudimentario del 
funcionamiento de los ordenadores, y 
un fuerte instinto delictivo. 

Sorprendentemente, tener acceso a 
un ordenador no es vital en todos los 
casos, como demostró un cliente de un 
determinado banco de los Estados 
Unidos, reemplazando un error del 
banco en los ingresos, por otros con 
su propio número de cuenta, magné- 
ticamente codificado sobre ellos. 

Después de liquidar su cuenta al día 
siguiente, y retirar el balance en me- 
tálico, el distinguido cliente se hizo con 
una cifra de 75.000 libras ( 1 7 millones 
250.000 pesetas). 



ELUDIR 
LAS MEDIDAS 
DE SEGURIDAD 



La información sobre ordenadores 
es sorprendentemente fácil de cono- 
cer, exceptuando la referente a la en- 
trada en sistemas de seguridad. El te- 
ma es enseñado en colegios y es ob- 
jeto de numerosos artículos de pren- 
sa. Incluso documentación referente a 
métodos de operación para diferentes 
máquinas, se guarda raramente en se- 
creto. 

De hecho, aunque las medidas de 
seguridad internas de los ordenadores 
sean totalmente inexpugnables, a me- 
nudo es muy fácil pasarlas por alto. 

Por ejemplo, donde están instaladas 
las llamados lineas de comunicaciones 
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de seguridad, el número de teléfono 
puede no estar contenido en las guías, 
y no ser listado por caminos internos. 
Pero aún aparece en contratos de ins- 
talación, en facturas, y en ocasiones 
garabateado en las notas de los inge- 
nieros de instalación. 

Cuando se está en posesión de ese 
tipo de información, la diferencia en- 
tre cometer o no el acto delictivo, es 
puramente un asunto de poder o no 
resistir la tentación, y en el caso de los 
ordenadores, ésta es desmesurada- 
mente grande. 

Hay una diferencia fundamental en- 
tre un asalto pistola en mano a una su- 
cursal bancaria y el robo por ordena- 
dor, ya que éste se realiza sin el me- 
nor tipo de violencia, y tiene la venta- 
ja de que no se delata por sí mismo. 

De hecho, los más cualificados in- 
vestigadores de este tipo de delitos, 
han abandonado la pretensión de ser 
capaces de descubrir el fraude hasta 
sus últimas consecuencias. 

La cantidad de volumen de datos al- 
macenados por las grandes compa- 
ñías, hace imposible revisar cada tran- 



sacción individualmente, incluso en el 
caso de que la sospecha de fraude sea 
completamente segura. 

La política de las compañías, a me- 
nudo parece limitarse a ocultar los 
desfalcos, siempre que se encuentren 
dentro de unos límites admisibles. 

Por ejemplo, en el caso del uso ile- 
gal de las tarjetas de crédito, que de- 
sencadenan un gran número de tran- 
sacciones electrónicas de fondos, unas 
perdidas que se encuentren dentro del 
0,05 por 100 de los ingresos netos, se 
consideran como aceptables. 

Incluso en el caso de que los límites 
sean sobrepasados, el costo efectivo 
de la acción tomada, es raramente di- 
rigido hacia el criminal. 



EL TECNO- 
DELINCUENTE 
FRENTE A LA 
SOCIEDAD 



La actitud social hacia el crimen 
computerizado, también hace aumen- 
tar su atractivo. Muchos robos hechos 
desde una máquina (especialmente 
cuanto éstos tienen como resultado pe- 
queñas cantidades de dinero, o el he- 




cho de eludir impuestos o gastos) es 
considerado como trivial. 

El hecho de que esta actitud esté o 
no reflejado en el Código penal, no es- 
tá claro todavía. Sin embargo, las sen- 
tencias por delitos cometidos con or- 
denador, son frecuentemente mucho 
menos severas que las de los casos de- 
pendientes de la brigada de investiga- 
ción criminal. 

Tomemos, por ejemplo, el caso de 
Jerry Neal Schneider, o el famoso des- 
falco de la Equity Funding. 

En el primero, Schneider, un ¡oven 
empresario (18 años) residente en Los 
Angeles, formó una compañía de dis- 
tribución de material electrónico con 
un stock inexistente, introduciéndose 
telefónicamente en el ordenador de 
una compañía local de IBM, para des- 
viar de su almacén las existencias ne- 
cesarias para atender su cartera de 
pedidos. 

Después de varios meses de nego- 
cio, Jerry fue denunciado por un cóm- 
plice que se ocupaba de atender los 
pedidos nocturnos. Sin embargo, a pe- 
sar del hecho de haberse apropiado 
indebidamente del valor aproximado 
de un millón de dólares en material, 
el ¡oven delincuente fue condenado a 
pagar una multa de unas 120.000 
ptas. y a dos meses de condena, de los 
cuales solamente llegó a cumplir 40 
días, antes de volver al mundo de los 
negocios como un consultor de segu- 
ridad de sistemas informáticos. 



UNA ESTAFA 
A LO GRANDE 



El escándalo del Equity Funding 
(1972), considerado como el fraude 
del siglo, fue realizado por los altos 
ejecutivos de una empresa americana 
de rápido crecimiento durante el trans- 
curso de ocho años. 

Los ordenadores fueron usados, en- 
tre otras cosas, para la expedición de 
64.000 pólizas de seguros de vida fal- 
sas, las cuales fueron vendidas tam- 
bién por medio del ordenador a sus 
coaseguradores. 

Cuando fue descubierto, el fraude 
costó a los accionistas 600 millones de 
libras (138.000 millones de pesetas) y 
un valor perdido en las pólizas asegu- 
radas de un billón de dólares. 
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Muchas de las víctimas quedaron 
arruinadas, pero los 24 responsables 
de la estafa solamente recibieron pe- 
nas desde los ocho años de prisión, 
hasta multas y libertad provisional. 



EL SILENCIO DE 
LAS ENTIDADES 
AFECTADAS 



Incluso si un delito informático es 
descubierto y el causante identificado, 
su persecución raramente se lleva a 
cabo. 

Las víctimas son reacias general- 
mente a llevarlo ante los tribunales. 
Las entidades bancarias, un blanco 
muy popular entre los tecnodelincuen- 
tes, consideran mucho más dañina la 
publicidad que acompaña a un litigio 
de estas características, que el valor 
del fraude perpetrado. 

En otros casos, son los mismos direc- 
tivos de las compañías afectadas, los 
que ocultan el fraude, para evitar acu- 
saciones de negligencia por parte de 
los accionistas. 

Otro motivo de disuasión es el cos- 
to de los procedimientos legales, esta- 
blecer la naturaleza exacta del delito 
y probar la existencia del mismo, es- 
pecialmente en el caso de sofisticados 
robos por ordenador, requiere fre- 
cuentemente una desmesurada canti- 
dad de tiempo, dinero y esfuerzo. 

También hay que tener en cuenta 
que los jurados en un caso de estas ca- 
racterísticas, no son expertos en el 
campo de los ordenadores, teniendo 
considerables dificultades para llegar 
a interpretar los hechos y pruebas 
aportados por los consultores informa- 
ticos. 

A causa de la gran difusión de los 
ordenadores, las oportunidades de 
cometer delitos informáticos se han in- 
crementado enormemente. Oficinis- 
tas, secretarias, e incluso personal de 
limpieza de oficinas, tienen acceso a 
los terminales. 



IEL PERSONAL DE 
LASCONSOLAS 

Precisamente por las características 
que debe reunir el personal a cargo 



de los ordenadores, las empresas de- 
dicadas a la selección, tienden a reclu- 
tar gente con una mente penetrante y 
un especial sentido de la precisión, ca- 
racterísticas que les hacen erigirse en 
los candidatos más adecuados para 
intentar eludir las medidas de seguri- 
dad como un desafío a su intelecto. 

La mayoría de los delitos por orde- 
nador son de carácter oportunista, 
gente que no busca un beneficio finan- 
ciero pero tiene la oportunidad de in- 
troducirse en en el sistema de seguri- 
dad debajo de sus narices. 

Muchos programadores podrían 
quebrantar un sistema como un acto 
de inofensiva malicia, sólo por el or- 
gullo de demostrarse a sí mismos que 
pueden hacerlo, pero una vez dentro 
la tentación es demasiado grande co- 
mo para no aprovechar la ocasión. 

De nuevo el crimen informático es 
difícil de demostrar. El más famoso 
fraude de redondeo de la historia ban- 
cada es un caso en esta linea. 

El autor, que trabajaba para un 
gran banco, realizó un programa en 
el cual al ser calculado el interés en la 
cuenta de un cliente, las pequeñas 
cantidades sobrantes del redondeo no 
eran abonadas a las cuentas indivi- 
duales, sino que eran transferidas a 



una cuenta ficticia al final del archivo 
de clientes. 

El fraude solamente pudo ser descu- 
bierto por accidente, cuando el presi- 
dente de la compañía, con objeto de 
demostrar las maravillas del sistema, 
sacó el saldo de la primera y la última 
cuenta. 

IEL ERROR 
DE LA MAQUINA 

La idea general de que los ordena- 
dores por naturaleza son propensos a 
cometer errores, también trabaja en 
favor de los delincuentes. 

Ahondando en esta técnica del error 
mecánico, tres empleados de New Se- 
curities, se las arreglaron paro expri- 
mir las cuentas de sus clientes, hasto 
el punto de conseguir al menos medio 
millón de dólares en varios años. 

Si un cliente notaba algún error en 
el balance de su cuenta, el error en el 
sistema de ordenadores ero el respon- 
sable. 

También y no sorprendentemente, 
cuando los errores ocurren a favor de 
lá cuenta de algún cliente, pocos son 
dados a informar de ello. 
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Llevodo a casos extremos, nos en- 
contramos con el de un contable que 
accidentalmente había cargado en su 
propia cuenta cerca de un millón de 
dólares, que se arregló para gastar 
antes de que el banco descubriese su 
error. Fue acusado con el cargo de ro- 
bo. 



ILA INFORMACION 
COMO OBJETO 
PE ROBO 

El crimen informático toma millares 
de formas, y no solamente está limi- 
tado a casos claramente incluidos en 
el fraude y el desfalco. 

El objetivo puede ser, por ejemplo, 
conseguir la propiedad de una com- 
pañía. En una ciudad de los Estados 
Unidos, el crimen organizado modifi- 
có los datos de pedidos de clientes de 
un ordenador, para eliminar 200 ca- 
jas de coches del inventario de una 
compañía de ferrocarriles. 

Los causantes del delito, devolvieron 
con toda celeridad los coches a sus 
propietarios originales, consiguiendo 
desprestigiar a la empresa distribuido- 



Otra forma delictiva la constituye, 
no el robo electrónico de fondos, sino 
la apropiación indebida de informa- 
ción. 

Los archivos de clientes son los fa- 
voritos. Uno de los casos récord en es- 
te campo, es el perpetrado por parte 
de operadores de ordenador que tra- 
bajando para la Enciclopedia Británi- 
ca, vendieron la alarmante cantidad 
de dos millones de nombres y direccio 
nes. El precio de tal información llegó 
a alcanzar más de un millón de libras. 
Incluso las grabaciones de los censos 
del gobierno no son inviolables. 

El espionaje industrial es también 
muy común entre los ladrones tecno, 
la facilidad con que los datos pueden 
ser duplicados sin dejar rastro, hace 
que el robo de secretos comerciales, 
planes presupuestarios e información 
de negocios, tenga un mercado ávido 
de información entre las compañias 
competidoras. 

Los programas de ordenador en sí 
mismos, también son objeto de la de- 
lincuencia informática, propietarios 
particulares de software, cuya obra es 
el fruto del intenso trabajo de varios 
años, caen dentro de las redes del la- 
drón tecno. 



i IMPIDIENDO 
EL ACCESO FISICO 




La variedad de métodos de protec- 
ción de los ordenadores contra la en- 
trada de intrusos, adquiere multitud de 
formas cada una de ellas basada en 
diferentes conceptos. 

A medida que más y más microor- 
denadores aparecen en las oficinas, 
asi como unidades y terminales inteli- 
gentes, la posibilidad de encerrar el 
ordenador bajo llave, se hace coda 
vez más difícil. 

Incluso cuando el departamento de 
ordenadores esté efectivamente aisla- 
do del mundo exterior, el ladrón tec- 
no siempre puede recurrir a modificar 
el data antes de ser introducido. 

En el fraude de Equity Funding te- 
nemos un caso típico. El departamen- 
to de programación era alimentado 
con información enteramente ficticia 
por parte de los directivos, y los clien- 
tes de la corporación cometieron el 
error de tomar los resultados del or- 
denador como un lema de fe. 

Otro ejemplo es el del consultor de 
seguridad de ordenadores, cuya es- 
tratagema favorita era entrar en el de- 
partamento de oficinas, rellenar uno 
de los impresos en blanco que anda- 
ban desperdigados por allí, y dejarlo 
caer en el suelo. 

Invariablemente el impreso que con- 
tenía una orden de pago del depar- 
tamento económico de la empresa, di- 
rigida a la dirección del consultor, era 
recogido y procesado. 

El consultor podía entonces retirar 
su cheque y de esta forma justificar sus 
servicios. 



1 CLAVE SECRETA 



A menudo para entrar en un siste- 
ma, el usuario necesita teclear una pa 
labra clave, en algunos sistemas ésta 
es claramente visible al introducirla 
desde el teclado, en este caso el tec- 
nodelincuente no tiene más que obser- 
var al usuario en el momento de te- 
clearla para obtener la información 
deseada. 

Cuando la palabra clave no es im- 
presa en la pantalla, y no se encuen- 
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tro garabateado en notas de instala- 
ción o manuales de uso, es necesario 
lo utilización de técnicos mucho más 
sofisticadas. 

Una de ellas, demostrado por un es- 
tudiante escocés, es escribir un proce- 
dimiento que actuando vio telefónica 
pueda memorizar la palabra clave y 
simular un fallo en el sistema. Los sor- 
prendidos usuarios introducirán por 
primera vez su clave en el sistema te- 
lefónico, descubriendo que hay un fa- 
llo en el sistema y luego volverán a in- 
tentarlo una vez más, esta vez en lu- 
gar correcto. 

Los bases de datos de información 
basadas en líneas telefónicas han ele- 



vado el refinado hecho de descubrir 
la clave de acceso a la categoría de 
un verdadero arte. 

Existen listas en las cuales se dan los 
diez nombres clave más populares, 
habiéndose desarrollado complicados 
algoritmos capaces de calcular las per- 
mutaciones más probables de carac- 
teres alfanuméricos. 



LLAVES 
ELECTRONICAS 



Generalmente tienen la formo de 
una tarjeta plástica, con información 



codificada en una cinta magnética 
contenido en una banda en cualquie- 
ra de sus caras. 

Existen varios métodos de alterar di- 
chas tarjetas: el más sofisticado con- 
siste en usar un pantógrafo electróni- 
co, para extraer la información alma- 
cenada. El menos complicado, usado 
con tarjetas empleadas en ciertos ser- 
vicios públicos, como teléfonos o bille- 
tes de transportes, consiste en utilizar 
un imán para borrar lo banda mag- 
nética. 

Su uso se limita a la protección de 
información, especialmente la que ha 
de ser enviada a través de las redes 
de comunicaciones públicas, o como 
un método de protección de las líneas 
privadas. 

Ello implica un proceso de codifica- 
ción y decodificoción de textos usan- 
do algoritmos específicos y una única 
clave. 

Teniendo en cuenta que los resulto- 
dos son solamente conocidos por el 
transmisor y el receptor de la informa- 
ción, incluso si los algoritmos son co- 
nocidos, el código permanece seguro. 

La encrytion, constituye una formi- 
dable barrera para el ladrón fecno, 
debido a que descifrar el código re- 
quiere un ordenador de considerable 
poder. En cambio, las agencias del 
gobierno pueden descifrarlo como si 
se tratara de un mensaje en morse. 

La Agencia Central de Seguridad, 
ha creado un sistemo de codificación 
de siete dígitos, del cual se dice que 
no puede ser decodificado ni usando 
el ordenador más potente. 

Lo cierto es que si la agencia está ca- 
pacitada para codificar siete dígitos, 
no puede abordar las claves de ocho 
dígitos, con lo cual su campo solamen- 
te se reduce a la información puro- 
mente comercial. 

Ha quedado claro que los métodos 
de protección van desde las medidas 
más elementales, hasta los sistemas 
más sofisticados en los que la tecnolo- 
gía empleada hace imposible la entra- 
da de cualquier intruso, poniendo ca- 
da vez más difícil la torea del tecno- 
delincuente, que tiene que suplir con 
ingenio la falta de medios. 




I 
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Una estructura de datos no es otra cosa que un conjunto de datos 
con una organización determinada. Pues bien, para conocer el 
mecanismo de creación de estos tipos de estructura, os ofrecemos 
este amplio artículo en el que os explicamos cómo se representan 

en el ordenador. 



ESTRUCTURA 



Todos sabemos lo gran 
cantidad de información 
que un ordenador moderno 
es capaz de almacenar y 
procesar. 

En muchos casos eso in- 
formación representa en 
cierta forma una abstrac- 
ción de una parte del mun- 
do real, y consiste en una 
selección de datos de la rea- 
lidad, en concreto ese con- 
junto de datos que conside- 
ramos básico para la solu- 
ción del problema y a par- 
tir del cual obtenemos los 
resultados deseados. 

Es evidente la importan- 
cia del lenguaje de progra- 
mación que se utilizo, de 
forma que nos permita el 
mayor grado de abstración 
posible. En nuestro caso 
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contamos con un lenguaje 
que no ofrece muchas posi- 
bilidades en este sentido. 
Por supuesto, nos referimos 
al Basic. 

Muchos de vosotros cono- 
ceréis el Pascal, un lengua- 
je que nos ofrece ciertos 
modos de definición de da- 
tos (en la mayoría de los ca- 
sos se definen nuevos tipos 
de datos, en función de 
otros definidos previamen- 
te, y se dice que están es- 
tructurados). 

Los tipos consituyentes de- 
finidos previamente, a su 
vez, pueden estar estructu- 
rados, con lo que podemos 
construir jerarquías de da- 
tos. De cualquier manera el 
componente último de una 
estructura, por muy comple- 
ja que sea, debe ser un 
componente atómico, es de- 
cir, elemental. 

La mayoría de los orde- 
nadores contienen lo que se 
llama tipos elementales nor- 
malizados. Comprenden los 
números reales, enteros, 
valores lógicos y un conjun- 
to de caracteres de escritu- 
ra, también números frac- 
cionarios. 
El tipo de valores entero 
I es un subconjunto de los nú- 
meros enteros, cuyo tama- 
ño depende mucho del or- 
denador en concreto. Las 
operaciones que se realizan 
entre valores de este tipo 
son exactas y se correspon- 
den con las leyes de la arit- 
mética. 

El tipo real es un subcon- 
junto de los números reales. 

La aritmética real produ- 
ce cierta imprecisión, dentro 
del error producido por el 
redondeo, al realizarse el 
cálculo sobre un número fi- 
nito de dígitos. 

El tipo lógico tiene valores 
verdadero o falso o bien 
TRUE y FALSE. En Basic no 
existe este tipo de datos y 
por consiguiente no existen 
variables de este tipo, aun- 
que podemos asignar a una 



variable numérica una ex- 
presión booleana, como 
por ejemplo, LET A = 5 = 3, 
esta expresión es falsa lue- 
go la variable A tomaría el 
valor 0; si la expresión hu- 
biese sido verdadera, la va- 
riable A tomaría el valor 1 . 

El tipo Char comprende el 
conjunto de caracteres im- 
primibles. 

En este caso depende mu- 
cho del ordenador del que 
se trate, para saber qué 
conjunto de caracteres em- 
plea. El más usado es el có- 
digo (ISO) International 
Standard Organization y 
el ASCII (American Stan- 
dard Code for Information 
Interchange). Sobre estos ti- 
pos elementales normaliza- 
dos se construyen otros ti- 
pos más complejos, por 
ejemplo los arrays, que no 
es otra cosa que una estruc- 
tura de datos cuyos compo- 
nentes son homogéneos, 
son todos del mismo tipo 
elemental y se seleccionan 
por sus nombres fijos. 

Un array es una estructu- 
ra de tipo aleatorio, todos 
sus componentes pueden 
seleccionarse arbitraria 
mente y son igualmente ac- 
cesibles. Para seleccionar 
un componente aislado, el 
nombre del array se amplía 
con un índice de selección 
del componente que indica 
a su vez la posición que ocu- 
pa un elemento dentro del 
array. 

Existen más estructuras de 
datos, pero en esta ocasión 
vamos a tratar tres estructu- 
ras muy importantes: pilas, 
colas y listas. 



Pilas 



Una pila es un conjunto 
de datos que únicamente 
pueden introducirse o ex- 
traerse por un extremo. 

Es muy común a la hora 
de explicar el concepto de 
pila la analogía con la vida 
de cada día. 



En una cafetería, los pla- 
tos limpios para ser utiliza- 
dos por los clientes se colo- 
can en una pila en el mos- 
trador. La forma más con- 
veniente de utilizar un pla- 
to es coger el que está en lo 
alto de la pila. A medida 
que se van utilizando los 
platos se van sirviendo des- 
de lo alto de la pila y cuan- 
do los platos utilizados se 
han lavado, se vuelven a 
colocar en lo alto de la pi- 
la. 

Por tanto, el último plato 
que entró será el primero en 
salir. 

Esta regla se llama LIFO 
en inglés «last in, first out», 
que es lo que caracteriza a 
una pila como estructura de 
datos. 

En la pila se pueden rea- 
lizar dos operaciones: 

1) Extraer un elemento 
por la cima, en cuyo caso el 
elemento situado a conti- 
nuación del extraído pasa a 
ocupar la cima. 

2) Introducir un elemen- 
to por la cima, con lo que 
este elemento pasa a ocu- 
par la cima. 

A partir de ahora vamos 
a necesitar un elemento 
nuevo llamado puntero, 
que nos va a servir para de- 
notar la posición de uno va- 
riable en el ordenador. 

Ante la imposibilidad de 
definir punteros en Basic, 
tendremos que crear todas 
las estructuras de datos que 
vamos a estudiar en este ar- 
tículo, sobre matrices, de es- 
ta forma el índice de un ele- 
mento de la matriz indica su 
posición dentro de dicha 
matriz. 

Cuando se almacena una 
pila en memoria, sus ele- 
mentos ocupan posiciones 
consecutivas y el puntero se- 
ñala lo cima de la pila. 

El puntero se modifica ca- 
da vez que se realiza una 
operación sobre la pila. El 
otro extremo de la pilo está 
fijo y se llama base. 



Para aquellos de vosotros 
que conozcáis el Código 
Máquina el concepto de pi- 
la debe seros familiar, el 
puntero de la pila es el re- 
gistro SP y las instrucciones 
de introducir y extraer un 
elemento son respectiva- 
mente PUSH y POP. 

Veamos a continuación el 
efecto gráfico que tiene so- 
bre una pila la ejecución de 
las dos operaciones. 

PILA INICIAL 

Puntero 
de la pila 
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Base de la 
' pila 

Realizomos una operación 
de introducción de un nuevo 
elemento por la cima: 

INTRODUCIR 50 

Puntero 
de la pila 



Si realizamos dos extraccio- 
nes consecutivas: 
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Puntero 
de lo pila 



La parte royada es infor- 
mación que ya no pertene- 
ce a la pila, aunque sigue 
permaneciendo en memo- 
ria, es pues el puntero quien 
indica el comienzo de infor- 
mación perteneciente a la 
pila. 

El puntero se incremento 
o decremento en una uni- 
dad dependiendo de la 
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operación concreto que 
realizamos sobre la pila. 
Es importante tener en 
cuenta, que la pila va cre- 
ciendo a medida que se van 
introduciendo por la cima 
elementos nuevos. Esto en 
el caso del Código Máqui- 
na puede ser un problema 
si la pila se extiende sobre 
un programa concreto, pe- 
ro no existe limitación en su 
crecimiento. Para nosotros 
el crecimiento de la pila si 
supone un pequeño dato a 
tener en cuenta, porque al 
soportar la pila sobre una 
matriz, debemos controlar 
que la pila no se hago ma- 
yor que la matriz. De esta 
forma la pila va creciendo 
hacia arriba y está llena 
cuando el puntero apunte al 
primer elemento. 

Estará vacía cuando 
apunte al último o base de 
la pila. 

Hay que hocer notar que 
el puntero siempre apunta 
al índice del primer elemen- 
to libre de la matriz. 

Al final, aparecen unos 
listados que realizan las 
operaciones sobre una pila 
y se usa una variable que 
conectará con el programa 
principal para indicarnos si 
la operación se realizó con 
éxito. 

Correcto = 0 operación 
incorrecta. 

Correcto =1 operación 
correcta. 

Debemos pasar a estas 
subrutinas una serie de pa- 
rámetros desde el progra 
ma principal, como puede 
ser en el caso de introducir 
un elemento, el elemento en 
cuestión o en el caso de la 
extracción recibiremos el 
elemento extraído. La pila 
se soporta sobre una matriz 
T con DIM T (200). Crear 
una pila vacía es simple- 
mente asignar al puntero de 
la pila el valor máximo, 200 
en este caso. 

Las subrutinas que tratan 
la pila son (6000-6270) 



Colas 



Una cola es una estructu- 
ra de datos que se caracte- 
riza porque sus elementos 
están ordenados y la inserc- 
ción de ellos se realiza por 
la parte posterior y las ex- 
tracciones por la parte an- 
terior. 

Tiene estructuro FIFO 
(first in, first out), primero en 
entrar, primero en salir. Po- 
demos realizar dos opera- 
ciones sobre la cola: inser- 
ción de un nuevo elemento 
por la parte posterior o ex- 
tracción de un elemento por 
la anterior. Veamos un 
ejemplo gráfico del funcio- 
namiento de una cola: 




con el elemento I3. Al reali- 
zar una extracción, la infor- 
mación contenido en la co- 
la se desplaza una posición 
hacia la salida, es decir, 
el elemento l> sale de la co- 
la, la información I? se des- 
plaza a la posición ocupa- 
da por I- y I3 a la ocupada 
por l 2 . 

Una buena forma de tra- 
tar la cola sobre una matriz, 
es hacer que tome una es- 
tructura circular, es decir, 
que dé la vuelta. 

Esto es debido a que a 
medida que se van suce- 
diendo las operaciones de 
extracciones e inserción la 
cola va dejando espacios li- 
bres. Para evitar este pro- 
blema y por supuesto el de 
tener que desplazar toda la 
información contenida en la 
cola cada vez que realiza- 
mos una operación sobre 
ella, vamos a utilizar dos 
punteros. Un primer punte- 
ro (Pi) que indica la posi- 
ción del elemento situado en 
el extremo anterior de la co- 
la y el otro (P?) indica el es- 
pacio disponible en la par- 
te posterior de la misma. 

Por tanto, podemos decir 



En la parte superior se re- 
presenta la cola vacía en el 
instante inicial, antes de rea- 
lizar ninguna operación de 
inserción o extracción. Si in- 
troducimos un primer ele- 
mento, éste debe desplazar- 
se hasta la última posición 
de la memoria junto a la sa- 
lida. Al realizar seguida- 
mente otra operación de in- 
troducción el elemento I? 
presente en la entrada se 
desplaza hasta la posición 
vacía más próxima a la sa- 
lida, que es la penúltima. 

De igual forma ocurre 




que la cola está llena cuan- 
do en la matriz sólo queda 
un elemento. 

A continuación aparece 
un pequeño diagrama de 
flujo del proceso de inser- 
ción y extracción con los 
punteros P: y P? como pun- 
teros primero y segundo de 
la explicación anterior. 



EX'BACCiO* COCA T(20C 




A continuación analizamos 
los pasos que hemos seguido 
en cada operación: 

INSERCION. 

PASO EXPLICACION 

(1) ¿Cola llena? Son los casos ex- 
puestos en las figuras A y B. 

(2) Inserción del elemento contenido 
en la variable ELI. T(P : ) es la po- 
sición de la cola indicada por el 
puntero Pj. 

(3) ¿Está el puntero P ; al final de la 
cola? 

(4) Si está ol final hacemos P?=1, 
da la vuelta. 

(5) No está. Queda una posición me- 
nos. 

(6) Operacián correcta. El elemento 
ha sido insertado correctamente. 

(7) Operación incorrecta. Cola llena. 
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Situación en la que Pj = Pi— 1 



1 



Situación P2 = n and Pi = 1 . 
En nuestro caso n 2(90 tama 
ño limite. 



PASO 



EXPLICACION 



(1) ¿Cola vacia? P s = P, o ¿cola no 
vacia? Pj< >P, 

(2) La cola no está vacía. Extracción 
del «lamento de lo coló indicado 
por el puntero P . 

(3) ¿Está el puntero P al final de la 
cola 20 9 ;? 

(4) No está oí final, incrementar el 
puntero. 

(5) Si está al final, dar la vuelto po- 
ner el puntero a 1 . 

(6) Operación correcta. 

(7) Operación incorrecta, cola vacia. 



— la inserción de un nue- 
vo elemento se realizo por 
detrás, en la posición seña- 
lada por un indicador que 
nos dirá el espacio disponi- 
ble tras el extremo posterior 
de la cola; 



— cada vez que extrae- 
mos un elemento del extre- 
mo inicial todos los demás 
se desplazan una posición 
dentro de la cola, como se 
vio antes; 

— vamos a realizar lo 

COLA T(200) 



cola sobre uno motriz de 
200 elementos como la an- 
terior. 

A continuación os ofrece- 
mos unos diagramas de flu- 
jo que esclarecen lo ante- 
riormente explicado: 



Listas 



La forma más simple de 
relacionar una serie de ele- 
mentos es alinearlos for- 
mando una única lista, en 
este caso se necesita única- 
mente un enlace por ele- 
mento para referenciar a su 
sucesor. 



• Cola vacia P2 = P1 

Cola no vacío P2 < > Pl. 

Las subrutinas que reali- 
zan el tratamiento de la co- 
la son (7000-7300). 

Las colas son estructuras 
de datos que se utilizan nor- 
malmente en aplicaciones 
en tiempo real, en comuni- 
caciones de datos y en pro- 
gromas de sistema. 

Existe otro forma de re- 
presentar la pila sobre la 
matriz, es la forma antes 
explicada en las figuras 
aclarativas sobre el funcio- 
namiento de lo cola: 

— almacenar la cola en 
una matriz como hasta aho- 
ra; 

— la salida de la cola se 
fija al elemento superior de 
la matriz; 




(1) Cola llena? 

IND=9. Indita que no hay especio libre. 

(2) Cola no llena. Cálculo de la posición donde vamos 
a insertar. 

(3) Inserción del elemento contenido en lo variable 

m. 

(4) Hay una posición menos libre, tras la inserción. 



(I) Cota vacia? 



(2) Cola no vacia. Extracción del primer elemento. 
(3} (4¡ (5) (6) Deipkaamiento de I > (288-INDH 

indica que hemos desplatado todos los elementos 

hasta el último de les existentes. 
(7) Un espacio más. 



(5) Operación correcta. 



(8) Operación correcta. 



(6) Operación incorrecta. Cela llena. 



(9) Colé vacia. Operación incorrecto. 



Los subrutinas que realizan estas operaciones son lo 
(98 §9-9228). 
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Luego, la lista es una es- 
tructura de datos que con- 
tiene un conjunto de ellos al 
macenados con cierto or- 
den. Los elementos pueden 
insertarse o extraerse en 
cualquier punto de la lista. 
Un elemento en la lista cons- 
ta de dos partes, el dato y 
su puntero que hará refe- 
rencia al sucesor. En el ca- 
so de que un dato no tenga 
un elemento de lista suce- 
sor, su puntero será nulo. 
De esta forma gráfica la lis- 
ta tiene el siguiente aspecto: 



-_J -_J -_J ■ . 



elemento de vista 

Sobre una lista pueden 
realizarse dos operaciones, 
insertar un elemento tras otro 
dado y extraer un elemento 
situado tras otro dado. 
Veamos el efecto gráfico de 
ambas operaciones: 



to antecesor para apuntar al 
sucesor. 

El caso de la extracción es 
similar, el puntero del ele- 
mento anterior al extraído 
debe de apuntar ahora al 
elemento sucesor del elemen- 
to extraído, y debe ser aho- 
ra el puntero del elemento 
extraído, el que pase a ser el 
puntero de su antecesor. 

Para representar una lista 
lo hacemos igual que en oca- 
siones anteriores, sobre una 
matriz. 

En este caso habrá una 
matriz de datos, y dos matri- 
ces de punteros. Vamos a 
realizar la lista con una es- 
tructura como la que apare- 
ce a continuación: 

Z punteros por elemento: 
uno referencia al sucesor y el 
otro al anterior. 



Datos: T{200) 

Puntero sucesor: P(200) 

Puntero antecesor: Q(200) 



Í8 



Observando que un ele- 
mento de lista en este caso 
estará compuesto por T(l), 
P(I),Q(I), inicializaremos la lis- 
ta con una profundidad de 
28)0 elementos. 

Las subrutinas que tratan 
las operaciones sobre la lista 
son las (9300-9980). 

La subrutina de inserción 
necesita un parámetro punte- 
ro del elemento tras el que ha 
de insertarse, PUN. 

La subrutina de extracción 



igualmente necesita el mismo 
parámetro, para conocer el 
elemento tras el que ha de 
extraerse. En el caso de que 
el puntero PUN sea igual a 
0 no será posible la extrac- 
ción puesto que no habrá 
ningún elemento sucesor a 
éste. 

Para el caso de la inser- 
ción, si el puntero de espacio 
libre es igual a 0, significa 
que no hay espacio en la lis- 
ta para la inserción. 

Lo subrutina de localización 
de un elemento en la lista só- 
lo necesita como parámetro 
de entrada, el dato a buscar 
en la listo, devolviendo el 
puntero del elemento si es 
que lo encuentra. En el lista- 
do sólo devuelve el puntero 
de la matriz P, punteros a ele- 
mentos sucesores. 



I 



• Inserción de un ele- 
mento 



En este tipo de estructura, 
se necesitan dos punteros Pi 
y P?, que nos indicarán el espa- 
cio libre y el comienzo de la lista 
en la matriz, respectivamente. 



lP 

«•ron _| 



• Extracción del ele- 
mento insertado 



La representación en la matriz 
?s la siguiente: 



Y ahora, veamos qué ocu- 
rre en cada caso. En la inser- 
ción lo que ha pasado es que 
el puntero del elemento tras 
el que ha de insertarse el nue- 
vo, tiene necesariamente que 
modificar su contenido para 
apuntar a este nuevo elemen- 
to y, por consiguiente, el nue- 
vo elemento debe tomar el 
valor del puntero del elemen- 
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Ldo conjunto podro ofrecer lo garan- 
os elementos principales del tía de transferir eficaz y rápidamente 
ioystick son: la base o carcasa, al ordenador vuestos movimientos, 
la empuñadura, el sistema de La empuñadura (stick), es el primer 
articulación y los elementos eléctricos, eslabón de la comunicación, las caroc- 
Cada uno de ellos juega un importan- terísticas particulares de este elemen- 
te papel y solamente un buen resulta- fo son las que confieren al periférico 

De ordinario la elección de periféricos para 
ordenadores suele realizarse tras la valoración 
personal de las características técnicas del 
producto; sin embargo, en los joysticks la mayoría 
de éstos son subjetivos y sólo la experiencia de 

uso nos puede conducir a una acertada 
valoración. Con este artículo intentamos ayudaros 
informándoos de los que hay en el mercado. 




una buena parte de su comodidad de 
uso, por ello, su diseño se realiza en 
base a conceptos anatómicos, si bien 
sólo son unos pocos los modelos del 
mercado que logran una buena adapta- 
bilidad a la mano del jugador y así per- 
mitir un uso prolongado consiguien- 
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para aquellos que día a día se enfren- 
tan a duras batallas. 

MECANISMOS 
DE DISPARO 

Para la ejecución de disparos (o sal- 
tos) hay gran variedad de versiones. 



tas..., todas ellas son de 30 mm de diá- 
metro. Sin embargo, el grado de su- 
jeción no sólo está en función del nú- 
mero de ventosas sino que también tie- 
ne su importancia la base de susten- 
tación que éstas proporcionan y la lon- 
gitud del stick, puesto que a mayor 
longitud de éste mayor empuje habrá 
de soportar la base. 



do con ello la mínima fatiga muscular. 

La operatividad de la empuñadura 
es poder efectuar los desplazamientos 
correspondientes a las cuatro posicio- 
nes (N, S, E y O) que posteriormente 
analizará el ordenador y sus combina- 
ciones de movimientos diagonales 
(NO, NE, SO y SE). 

Una rótula esférica sirve de elemen- 
to de unión entre el stick y la carcasa, 
unión que debe permitir un suave des- 
plazamiento del stick, esta suavidad de 
desplazamiento y la ausencia de hol- 
guras en el mecanismo determinará la 
precisión del joystick. El otro extremo 
de la empuñadura queda situado en- 
tre cuatro microruptores que son acti- 
vados o desactivados al alcanzar el 
stick la situación correspondiente. La 
construcción de estos contactos varía 
desde simples laminas flexibles hasta 
microruptores mecánicos (reconocibles 
por su «clic» característico) e incluso 
simples circuitos impresos superpues- 
tos que generalmente están integrados 
en una pieza de plástico que a veces 
llega a efectuar las funciones de la ró- 
tula. 

A fin de que la empuñadura retor- 
ne a su posición central (neutra), un 
sistema de resortes o masas elásticas 
(gomas) unidas a la parte inferior de 
la rótula realizan tal operación. 

La robustez de todo este conjunto 
mecánico es un factor determinante 




para ello se dota al joystick de varias 
posibilidades, tantas como hábitos 
puedan tener los jugadores. 

Generalmente éstos se producen al 
pulsar algún botón de diferentes for- 
mas y tamaños que se encuentran dis- 
tribuidos en la empuñadura y/o la ba- 
se. 

Lo más habitual es que en la empu- 
ñadura haya al menos un pulsador al 
alcance del dedo pulgar y a veces se 
complemente con otro a modo de ga- 
tillo, accionable con el Índice. Tam- 
bién, la carcasa puede tener uno o va- 
ríos pulsadores de efecto semejante a 
los del stick, todos estos pulsadores es- 
tán concentrados eléctricamente en 
paralelo pudiendo efectuarse el dispa- 
ro desde cualquiera de ellos. Algunos 
modelos están complementados con 
un interruptor de disparo permanen- 
te que sirve de gran ayuda en los jue- 
gos de trepidante acción (salvo en 
aquellos en los que la energía es en 
función inversa a los disparos). 

En este capítulo es destacable la im- 
portancia de la recuperación de todos 
y cada uno de los ruptores a fin de que 
ésta no ralentice la sucesión de dispa- 
ros en ráfaga. 

LA SUJECION 

La carcasa o base del joystick cum- 
ple una doble misión, una, la de alber- 
gar en su interior todos los mecanis- 
mos descritos anteriormente, la otra, 
la de ofrecer una gran sujeción del 
conjunto a la superficie de la mesa en 
el caso de estar prevista para ello o 
la de acomodarse a la mano en aque- 
llos tipos de joystick diseñados para es- 
te modo de utilización. 

En el primer caso la sujección del 
joystick viene realizándose a base de 
unas ventosas que, dispuestas en su 
parte inferior, los inmovilizan suficien- 
temente. La mayoría de los modelos 
analizados poseen cuatro ventosas 
con la única excepeción del Quick Shot 
V que utiliza cinco, por otra parte pa- 
recen haberse puesto de acuerdo to- 
dos los fabricantes en el tamaño de és- 



CONEXION 

La descripción del ¡oysticlc queda 
completada con una pequeña alusión 
al cable de conexión en el que cabe 
destacar la importancia de una longi- 
tud que permita su manipulación a 
una distancia apropiada que casi to- 
dos poseen. 

Por otro lado, la calidad del cable 
de conexión aunque no es influyente 
en la manipulación del periférico sí 
puede ser indicativo de la calidad ge- 
neral. 



DESARROLLO 

En los últimos años la evolución de 
este periférico ha alcanzado cotas 
muy altas pero sigue siendo el diseño 
clásico el de mayor difusión, desarro- 
llándose multitud de nuevos modelos 
más ergonómicos, cómodos y durade- 
ros, incorporando a ellos ingeniosos 
complementos al efecto como bases 
más amplias (Quick Shot III y V, Co- 
bra), mini teclados para introducción 
de niveles de dificultad y número de 
jugadores (QSV), utilización de meca- 
nismos de alta calidad (baza que ga- 
na el Cobra), etc. 

En cuanto a los modelos más avan- 
zados éstos presentan innovaciones 
realmente ingeniosas y de conceptos 
absolutamente distintos de lo habitual, 
bien que su aplicación debe ser enjui- 
ciada según cada particular. 

Modelos como el Cheetach de mon- 
do a distancia evitan el a veces engo- 
rroso cable de conexión, si bien pue- 
de «jugárosla» durante una partida si 
en un momento de exaltación lo des- 
viamos de la dirección del interface re- 
ceptor. Sistema muy similar utiliza el 
Quick Shot VII, pero sin dejar a un la- 
do el cable conector. 

El Joycard, es un reducido teclado 
que incorpora un joystick y un par de 
pulsadores en simulación a las «maqui- 
nitas» de los bares. 

Quizás el modelo de más impacto 
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visual sea el último de la extensa saga 
de Quick Shot, la versión nueve, una 
enorme bola de 10 cm de diámetro 
movible en cualquier dirección, dota- 
da de una gran precisión y que incor- 
pora dos teclas de gran dimensión pa- 
ra disparo y complementado con un 
par de interruptores que permiten las 
opciones de fuego automático e inver- 
sión de sentido de desplazamiento, 
haciendo posible distintas situaciones 
del aparato. 

EL PRECIO DEL PODER 

Realizar un análisis de precios co- 
rrespondientes a cada modelo de 
¡oystyck de una forma fehaciente no 
es tarea fácil dado que generalmente 
se encuentran formando parte de 
atractivas ofertas, cuando no se inclu- 
yen en la compra del ordenador, pe- 
ro orientativamente oscilan alrededor 
de las 2.000/3.000 ptas. los modelos 
más convencionales, alcanzando 
1 0.000 y 1 2.000 los modelos más pre- 
cisos y/o sotisficados 
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CARACTERISTICAS TECNICAS 



MODELO 




EMPUÑADURA 




BASE 


DIMENSIONES (cm) 




Tipo 


Disparo 


Altura 


Sujeción 


Disparo 


Totales 


Cable 


CAPITAN GRANT Anatom. 


1 pulsador 


12 


Manual 


1 pulsa. 




13x lOx 16 


125 


CHEETAH 


Anatom. 


1 pulsador 




Manual 


16x6.5x2.5 


Mando distancia 


COBRA 


Anotom. 


2 pulsad. 


16 


4 ventosas 




Ux 12.5x24 


135 






1 gatillo 












COMMANDO 


Anatom. 


1 pulsador 


3 






4.5x3x17 


170 


COMMODORE 


Lisa 




75 


Manual 


1 tecla 


10x7x11 


127 


GRAN CAP. II 


Anatom. 


1 P uls°dor 


12 


Manual 


2 pulsad. 


12x12x16.5 


125 






1 t II 






t-AUTO 






GUN SHOT 


Anatom. 


1 l" d r 


13,5 


4 ventosas 


1 pulsad. 


13x11x16 


125 


INVESTICK 


Anatom. 


1 pulsador 


13^5 


4 ventosas 


2 pulsad. 


13x lOx 18 


104 






1 gatillo 












JOYCARD 


de bola 




45 


sobremesa 


2 pulsad. 


18x10x6.5 


27 


JOYSTICK 


Anatom. 


1 1 d r 


13 


4 ventosas 


2 pulsad. 


13.5- 10» 17 


124 






i ^"tiíí or 

ga i o 












KEMPSTON 


de bola 




7 


Manual 


2 pulsad 


11x5x9x11 


120 


KEMPSTON 3000Anotom. 


1 pulsador 


12 


Manual 


1 tecla 


13x7.5x16 


160 






1 gatillo 












KONIX 


de bola 


1 gatillo 


6 






13x8x10 


135 


PROTO 


Anotom. 


1 pulsador 


12 


4 ventosas 


1 pulsad. 


12x12x15.5 


126 






1 gatillo 












QUICK SHOT 1 


Anatom. 


1 pulsador 


12 


4 ventosas 


1 pulsad. 


11x9x16 


126 


QUICK SHOT II 


Anatom. 


1 pulsador 


13.5 


4 ventosas 


1 pulsad. 


13x9.5x17.5 


126 






1 gatillo 






+ AUTO 






QUICK SHOT III 


Anatom. 


1 pulsador 


12 


5 ventosas 


2 pulsod. 


19x10x17 


126 






1 gatillo 






TECLADO 






QUICK SHOT V 


Anatom. 


1 pulsodor 


12 


4 ventosas 


1 tecla 


19x9.5x17 


126 






1 gatillo 












QUICK SHOT VII 


Disco 


2 gatillos 








12x9x2.5 


126 


QUICK SHOT IX 


Esfera 


10 


4 ventosas 


2 teclas 


22x14.5x12 


121 




10 cm 








+ AUTO 






SUPERSTICK 


Cilindro 


1 pulsador 


10 


Manual 




9x9x13 


157 


TOSHIBA 


Anatom. 


1 pulsador 


11 


Manual 


1 tecla 


13x10x18 


104 



VALORACION 



MODELO GRADO DE SUAVIDAD SUAVIDAD ADAPTACION ROBUSTEZ COMODIDAD 

SUJECION DEM0VIM. DE DISP. A LA MANO MECANIS. US0PR0L0NG. 



CAPITAN GRANT 




CHEETAH 




COBRA 




COMMANDO 




COMMODORE 




GRAN CAP. II 




GUN SHOT 




INVESTICK 




JOYCARD 




JOYSTICK 




KEMPSTON 




KEMPSTON 3000 




KONIX 




PROTO 




QUICK SHOT 1 




QUICK SHOT II 




QUICK SHOT III 




QUICK SHOT V 




QUICK SHOT VII 




QUICK SHOT IX 




SUPERSTICK 




TOSHIBA 
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Venga a Sinclair Store. 

Le presentamos las más recientes 
PC totalmente compatibles por menos del 



Los primeros en tener lo último. 

novedades. Desde los ordenadores 
90.000 ptas., lo último en Spectrum. 



Convertidor TV para tu Amstrad, hasta las cadenas de sonido con un precio inferior a 30.000 
ptas., que van a revolucionar el mercado. ¡VA A SER UN ESCÁNDALO! 

OFERTAS Pesetas 

Convertidor TV Aimtrod Lonzom.enlo 
Ampl ( ooon memoria Aimtrod 464. 64 K 8 500 

Ampliación memona Amstrad 464, 256 K 2' .500 

Disco de silicio 256 K 
Loptz ophco Amstrad 
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Fundos teclodo. desde 
Opus Discovery 

Soffwore Amstrad. Commodore, desde 
Joyshck Qoiclc Shot II I InleHace Kempston 

ABRIMOS SABADOS TARD£ 



JO IHKUL m m 

mun£3hsw 
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